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AND  INITIAL  CONDITIONS  PHOTOGRAMMETRIC  PROGRAM 


Introduction 

The  Naval  Biodynamics  Laboratory  (NAVBIODYNLAB),  located  in  New  Orleans,  Louisiana,  is  a 
research  facility  under  the  cognizance  of  the  Naval  Medical  Research  and  Development  Command.  It 
is  the  principal  Navy  laboratory  conducting  biomedical  research  on  the  effects  of  mechanical  forces 
encountered  in  Navy  aircrafts  and  ships.  Among  its  goals  are  the  establishment  of  human  tolerance  limits 
and  the  development  of  appropriate  methods  of  avoiding  and  treating  the  deleterious  effects  of  such 
forces.  Ongoing  research  programs  at  the  laboratory  acquire  sensor  and  photographic  impact  acceleration 
data  from  acceleration  sled  runs. 

To  analyze  this  data,  certain  anthropometric  information  about  each  subject  is  necessary.  Two 
anatomical  coordinate  systems  are  used,  one  on  the  head  and  one  at  the  base  of  the  neck  on  the  first 
thoracic  vertebra  (T-1);  these  systems  are  depicted  in  Figures  1  and  2.  The  methodology  for  defining 
them  and  for  obtaining  the  appropriate  data  has  been  reported  previously  (Becker,  1977).  Motion  data 
collected  from  inertial  instrumentation  packages  on  the  head  and  T-1  are  referenced  to  their  own 
coordinate  system;  thus  knowledge  of  the  transformation  matrices  from  the  instrument  to  the  anatomical 
coordinate  systems  is  also  required. 

Neck  and  body  information  is  obtained  from  two  sets  of  stereoscopic  X-rays  of  the  subject  with 
instrument  mounts  in  place.  X-rays  are  taken  of  T-1,  and  a  set  of  calibration  X-rays  is  made  utilizing 
a  Plexiglass™  target  containing  an  array  of  radio-opaque  BBs  located  at  known  positions.  A  special  chair 
with  additional  BBs  is  used  to  ensure  that  the  subject  does  not  move  while  a  stereoscopic  pair  of  X-rays 
is  made.  This  “stereopair”  consists  of  two  X-rays  of  the  same  area  taken  from  different  positions  so  as 
to  afford  stereoscopic  vision.  Two  sets  of  stereopairs  (a  total  of  four  X-rays)  are  taken  as  follows: 

Left  eye  view  —  left  shoulder  to  plate 
Right  eye  view  —  left  shoulder  to  plate 
Left  eye  view  —  right  shoulder  to  plate 
Right  eye  view  —  right  shoulder  to  plate 

The  X-rays  are  viewed  through  a  mirror  stereoscope,  a  lensed  instrument  used  to  view  stereopairs. 
The  X-rays  are  positioned  until  they  form  a  stereomodel,  i.e.,  a  three-dimensional  model  formed  by  the 
intersecting  of  an  overlapping  pair  of  images.  Once  a  stereomodel  is  formed,  the  X-rays  are  secured  in 
place  and,  using  the  stereoscope,  the  points  defining  the  anatomical  coordinate  system  (Figure  1)  are 
marked  on  the  X-ray  for  digitization. 

The  method  of  head  anthropometry  used  previously  required  two  X-rays,  which  gave  a  minimally 
determined  solution  for  the  head  anatomic  coordinate  system.  To  obtain  a  better  solution  it  was  necessary 
to  expose  the  subject’s  head  to  increased  radiation.  To  avoid  this  additional  exposure,  optical 
photogrammetry  is  used  to  determine  head  anthropometry  data.  Six  photographs  are  taken  using  the 
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PSP  (LEAD  MARKER) 


Figure  1.  The  Anatomical  Coordinate  System. 


cameras  located  in  the  site  survey.  Photo  coordinates  are  obtained  from  enlargements  using  the  Altek 
digitizer. 

The  optical  photogrammetry  system  used  for  the  initial  conditions  of  accelerator  runs  is  also  used  for 
head  anthropometry.  Control  points  for  a  simultaneous  block  adjustment  of  the  six-camera  system  have 
already  been  determined  from  the  site  survey.  A  test  subject  is  seated  on  the  vertical  accelerator  chair. 
The  ocular  notches  are  marked  with  a  felt-tip  pencil,  the  mouth  mount  with  BB  targets  is  fitted  into  place, 
and  ear  plugs  with  the  ear  targets  attached  are  inserted  under  a  doctor’s  supervision.  All  six  cameras  are 
fired  simultaneously.  The  film  is  processed  and  enlargements  made,  with  prints  showing  all  format  edges 
of  each  negative.  These  enlargements  are  digitized  on  the  Altek  digitizer,  as  described  later. 

The  software  package  used  is  NGIANT,  a  customized  version  of  PC  GIANT.  PC  GIANT  is  an 
expanded  and  enhanced  version  of  the  General  Integrated  Analytical  Triangulation  program  (GIANT), 
which  is  a  public  domain  program  for  mainframe  computers.  Developed  by  Elassal  et  al  for  Autometric 
Corporation  and  later  for  the  U.S.  Geological  Survey,  GIANT  will  perform  a  simultaneous  bundle 
adjustment  of  perspective  imagery  (photos.  X-rays,  etc.)  by  enforcing  the  collinearity  condition.  PREP 
is  the  pre-processor  for  transforming  comparator  coordinates  to  a  plate-centered  coordinate  system  with 
various  corrections  for  systematic  errors.  NPREP,  a  custom  version  of  PREP,  was  developed  by  GPA 
Associates  to  automate  the  digitization  process  and  to  create  the  GIANT  input  image  file.  NPREP  creates 
the  image  file  for  NGIANT  for  a  particular  subject  by  human  research  volunteer  (HRV)  number. 
NGIANT  will  find  all  the  necessary  points  in  space  and  compute  the  locations  of  the  specific  body  points 
by  regression  on  the  x,y,z  coordinates  of  the  targets  or  known  locations.  NGIANT  then  has  all  the 
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information  to  calculate  the  transformation 
from  anatomical  to  instrumentation  coordinate 
systems. 

Initial  conditions  data  may  also  be  ac¬ 
quired.  Recent  breakthroughs  in  the  minia¬ 
turization  of  rate  gyros  and  accelerometer 
sensors  have  made  it  apparent  that  direct 
measurement  of  “on-board”  human  impact 
dynamics  can  be  easily  accomplished.  With 
this  in  mind,  exactly  where  a  subject  happens 
to  be  at  various  millisecond  points  in  time  is 
immaterial  to  the  analysis  of  the  biodynamics 
of  the  impact.  The  only  position-dependant 
variables  in  the  subsequent  analysis  are  the 
initial  conditions  of  the  subject  some  infinites¬ 
imal  instant  before  impact.  This  implies  that 
a  simultaneous  multiple  camera  exposure  is 
all  that  is  needed  for  the  photogrammetric 
determination  of  initial  conditions.  The  new 
motion  detectors  require  only  that  initial 
conditions  be  determined  for  the  test  subject’s 
position  and  attitude  for  both  head  and  neck. 
The  same  six  cameras  are  aimed  to  see  tar¬ 
gets  attached  to  both  head  and  neck  and 
hence  target  positions  can  be  obtained  photo- 
grammetrically.  The  cameras  are  tied  in  to 
the  firing  sequence  and  are  simultaneously  exposed  a  fraction  of  a  second  prior  to  the  impact  pulse. 
Enlargements  are  processed  on  the  Altek  digitizer  using  NPREP.  The  resulting  image  file  is  then  read 
into  NGIANT.  The  output  has  the  locations  of  the  digitized  targets  on  the  mouth  and  T-1  mounts.  The 
particular  targets  may  change  with  the  design  of  the  new  sensor  package. 


Figure  2.  The  Head  Anatomical  Coordinate  System. 


Function 


The  photogrammetric  software  package  consists  of  two  main  programs: 


NGIANT  -  Main  program  which  executes  GIANT  and  calculates  the  transformation 

from  the  anatomical  to  the  instrumentation  coordinate  system.  All  input 
must  already  be  in  place. 

NPREP  -  Main  Digitization  program,  which  automates  the  digitization  process  and 

creates  the  NGIANT  input  image  file  for  a  particular  subject  by  HRV 
number. 
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ALTEK  Digitizer 

The  ALTEK  AC30  digitizer  is  connected  on  a  bi-directional  serial  port  to  a  486  personal  computer  on 
the  COM2  port.  ALTEK  Corporation’s  MICRODU  Universal  Digitizer  Software  is  used  to  interface  the 
personal  computer  with  the  digitizer.  The  use  of  MICRODU  is  invisible  to  the  user  because  all  the 
necessary  commands  have  been  incorporated  into  NPREP.  The  user  need  only  know  how  to  operate  the 
digitizer  cursor.  The  cursor  has  a  viewing  site  with  a  set  of  cross  hairs,  and  its  controls  have  four  push 
buttons  and  two  warning  lights. 

The  center  of  the  cross  hairs  on  the  cursor  should  be  positioned  on  the  center  of  the  point  to  be 
digitized.  The  red  light  will  come  on  when  the  cursor  is  out  of  the  digitizing  range.  The  white  light 
comes  on  when  data  has  been  transmitted.  The  control  buttons  are  defined  as  follows: 

YELLOW  =  MISSING 

RED  =  ERROR-BACKUP 

GREEN  =  FIDUCIAL  OR  DATA  POINT 

BLUE  =  ABORT  PHOTO 

The  green  button  is  used  to  enter  data.  If  a  point  is  missing  (i.e.,  it  caimot  be  seen  on  a  particular 
photo  or  X-ray),  the  yellow  button  is  pressed.  The  red  button  is  used  when  mistakes  occur.  The  blue 
button  is  also  used  for  mistakes,  but  only  mistakes  regarding  photographs.  If  data  for  the  photo  being 
processed  is  erroneous,  the  complete  data  set  may  be  aborted  by  pressing  the  blue  button.  If  the  wrong 
point(s)  are  input,  the  red  button  should  be  pressed  to  back  up  until  the  correct  point  is  reached.  All 
input  is  displayed  on  the  screen.  Data  points  will  be  labelled  with  X  and  Y  coordinates  printed.  Missing 
points  and  deleted  (back  up)  points  will  be  noted.  The  user  just  has  to  watch  the  screen.  Table  1 
summarizes  the  various  digitizing  input  sequences. 


NGIANT 

NGIANT  is  an  interactive  program  for  executing  a  customized  version  of  GIANT.  All  input  files 
should  be  in  place.  The  operator  may  select  the  following  options: 

0:  Initial  Conditions 

1 :  Head  Anthropometry 

2:  Body  Anthropometry 

3:  Standard  GIANT 

After  an  option  has  been  selected,  the  appropriate  subroutine  is  executed.  If  option  0  is  selected,  the 
run  number  is  requested.  If  option  3  is  selected,  a  title  for  the  GIANT  output  is  requested.  In  both 
cases,  GIANT  is  executed  immediately  after  input,  assuming  all  input  files  have  been  created.  If  option 
1  or  2  is  selected,  an  HRV  number  is  requested.  After  receiving  input,  the  files  are  searched  for  an 
image  file  labelled  old  with  the  given  HRV  number.  If  the  file  exists,  GIANT  is  executed.  If  the  file 
does  not  exist,  an  error  will  be  noted  and  execution  terminated.  This  is  also  true  for  options  0  and  3. 
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Table  1.  Summary  of  the  Various  Digitizing  Sequences 

_ Initial  Conditions _ 

Fiducials  top  1,  top  2,  top  3,  rt  1,  rt  2,  rt  3, 

_ bot  1,  bot  2,  bot  3,  1ft  1,  1ft  2,  1ft  3 _ 

Targets  mrcl,  mrc2,  nirc3,  nirc4,  mrc5,  mrc6,  mrc7,  mrc8, 
mccl,  mcc2,  mcc3,  mcc4,  mcc5,  mcc6,  mcc7,  mcc8, 
mlcl,  mlc2,  nilc3,  mlc4,  mlc5,  mlc6,  mlc7,  mlc8, 
nrcl,  nrc2,  nrc3,  nrc4,  nrc5,  nrc6,  nrc7,  nrc8, 
nccl,  ncc2,  ncc3,  ncc4,  ncc5,  ncc6,  ncc7,  ncc8, 
_ nlcl,  nlc2,  nlc3,  nlc4,  nlc5,  nlc6,  nlc7,  nlc8, 

Control  a,  b,  c,  d,  f,  g,  h,  j,  k, 

rtcl,  rtc2,  rtc3,  rtc4,  rtc5,  rtc6,  rtc7,  rtc8, 
cenl,  cen2,  cen3,  cen4,  cen5,  cen6,  cen7,  cen8, 

Ifcl,  lfc2,  lfc3,  lfc4,  lfc5,  lfc6,  lfc7,  lfc8 


_ _ Head  Anthropometry _ 

Fiducials  top  1,  top  2,  top  3,  rt  1,  rt  2,  rt  3, 

_  bot  1,  bot  2,  bot  3, 1ft  1, 1ft  2,  1ft  3 _ _ 

Targets  ron.  Ion, 

earl-r,  ear2-r,  ear3-r,  ear4-r, 

_ earl-1,  e;  -1,  ear3-l,  ear4-l, _ 

Controls  mrcl,  nu.:2,  nirc3,  mrc4,  mrc5,  inrc6,  mrc7,  mrc8, 
mccl,  mcc2,  mcc3,  mcc4,  mcc5,  mcc6,  mcc7,  mcc8, 
mlcl,  mlc2,  mlc3,  mlc4,  mlc5,  mlc6,  mlc7,  mlc8. 


_ Body  Anthropometry _ 

Fiducials  123456789  10 _ 

Targets  Origin,  Rib  lf,  Rib  Rt,  SpineTop,  SpineBot, 
spine  bb,  sternum,  lf_shold,  rt_shold, 
_ IneckT,  IneckB,  rneckT,  rneckB, _ 

Control  rl,  r2,  r3,  r4,  r5,  r6,  r7,  r8, 
cl,  c2,  c3,  c4,  c5,  c6,  c7,  c8, 

_ 11,  12,  13,  14,  15,  16,  17,  18 _ 
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NPREP 

NPREP  is  the  main  digitization  and  data  acquisition  program.  It  interfaces  with  the  ALTEK  digitizer 
to  automate  the  digitization  process  and  creates  the  NGIANT  input  image  files  for  a  particular  subject. 
The  operator  may  select  the  following  options: 

0;  Initial  Conditions 

1:  Head  Anthropometry 

2:  Body  Anthropometry 

To  execute  NPREP,  type  NPREP.  The  COM  port  number  for  the  Altek  digitizer  will  be  requested. 
Enter  the  number  2.  The  screen  display  will  be  as  follows: 

COM2:  9600,  0,  7,  2,- 

Enter  0  for  initial  conditions. 

Enter  1  for  head  anthropometry. 

Enter  2  for  body  anthropometry. 


Initial  Conditions.  If  0  is  entered,  “enter  run  number  (a6):”  will  be  displayed.  The  user  will  enter  the 
run  number.  “Enter  Photo  #(1-6,  0  when  finished)”  will  be  displayed.  The  user  will  enter  the  number 
of  the  photo  to  be  digitized.  Finally,  the  user  will  be  asked  to  enter  specific  targets  in  a  predetermined 
order. 

All  photos  are  enlarged  with  a  distinct  edge  or  border  so  as  to  depict  the  area  of  interest  in  a  well 
defined  block.  To  establish  reference  points  or  calibrated  fiducials,  three  arbitrary  measurements  are 
taken  in  a  straight  line  along  the  edges  of  each  photo.  These  are  always  the  first  points  to  be  digitized. 
The  sequence  is  top,  right,  bottom,  and  left.  The  user  will  be  requested  to  digitize  the  points  as  follows: 


Enter: 

top  1 

Enter: 

top  2 

Enter: 

top  3 

Enter: 

rt  1 

Enter: 

rt  2 

Enter: 

rt  3 

Enter: 

bot  1 

Enter: 

bot  2 

Enter: 

bot  3 

Enter: 

1ft  1 

Enter: 

1ft  2 

Enter: 

1ft  3 

(Digitize  1st  point  on  top  edge.) 
(Digitize  1st  point  on  right  edge.) 
(Digitize  1st  point  on  bottom  edge.) 


(Digitize  last  point  on  left  edge.) 


The  data  is  analyzed  and  error  values  are  displayed.  The  user  should  check  the  rms  values.  These 
should  always  be  very  small,  definitely  less  than  1.0.  The  user  will  be  given  the  option  to  continue.  If 
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the  rms  values  are  too  large,  the  user  should  exit  the  program  and  start  over. 

Once  the  reference  points  are  entered  correctly,  the  user  will  be  requested  to  digitized  the  targets  as 
follows; 


Enter 

a 

Enter 

b 

Enter 

c 

Enter 

d 

Enter 

f 

Enter 

g 

Enter 

h 

Enter 

j 

Enter 

k 

Enter 

rtcl 

Enter 

rtc2 

Enter 

rtc3 

Enter 

rtc4 

Enter 

rtc5 

Enter 

rtc6 

Enter 

rtc7 

Enter 

rtc8 

Enter: 

cenl 

Enter: 

cen2 

Enter: 

cen3 

Enter: 

cen4 

Enter: 

cen5 

Enter: 

cen6 

Enter: 

cen7 

Enter: 

cen8 

Enter: 

Ifcl 

Enter: 

lfc2 

Enter: 

lfc3 

Enter: 

lfc4 

Enter: 

lfc5 

Enter; 

lfc6 

Enter: 

lfc7 

Enter: 

lfc8 

(Digitize  target  A.) 


(Digitize  corner  1  of  right  cube.) 


(Digitize  corner  1  of  center  cube.) 


(Digitize  corner  1  of  left  cube.) 


“Press  Enter  to  Continue”  is  displayed.  Press  Enter. 
Runs  before  LZ0930  are  processed  as  follows: 


Enter:  m-rl 
Enter:  m-r4 
Enter:  m-tl 
Enter;  m-t4 


(Digitize  corner  1  of  cube  on  right  side  of  mouth  mount.) 
(Digitize  corner  4  of  cube  on  right  side  of  mouth  mount.) 
(Digitize  corner  1  of  cube  on  top  part  of  mouth  mount.) 
(Digitize  corner  4  of  cube  on  top  part  of  mouth  mount.) 
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Enter;  m-bl  (Digitize  corner  1  of  cube  on  bottom  part  of  mouth  mount.) 

Enter:  m-b4  (Digitize  comer  4  of  cube  on  bottom  part  of  mouth  mount.) 

Enter:  m-11  (Digitize  corner  1  of  cube  on  left  side  of  mouth  mount.) 

Enter:  m-14  (Digitize  corner  4  of  cube  on  left  side  of  mouth  mount.) 

Enter:  t-rl  (Digitize  corner  1  of  cube  on  right  side  T-plate.) 

Enter:  t-r4  (Digitize  corner  4  of  cube  on  right  side  of  T-plate.) 

Enter:  t-cl  (Digitize  corner  1  of  cube  on  center  of  T-plate.) 

Enter:  t-c4  (Digitize  corner  4  of  cube  on  center  of  T-plate.) 

Enter:  t-11  (Digitize  corner  1  of  cube  on  left  side  of  T-plate.) 

Enter:  t-14  (Digitize  corner  4  of  cube  on  left  side  on  T-plate.) 

Runs  LZ0930  through  the  present  are  processed  as  follows; 

Enter:  mrcl  (Digitize  corner  1  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc2  (Digitize  corner  2  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc3  (Digitize  corner  3  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc4  (Digitize  corner  4  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc5  (Digitize  corner  5  of  right  cube  on  the  mouth  mount.) 

Enter;  mrc6  (Digitize  corner  6  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc7  (Digitize  corner  7  of  right  cube  on  the  mouth  mount.) 

Enter:  mrc8  (Digitize  corner  8  of  right  cube  on  the  mouth  mount.) 

Enter:  mccl  (Digitize  corner  1  of  the  center  cube  on  the  mouth  mount.) 

Enter;  mcc2  (Digitize  corner  2  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc3  (Digitize  corner  3  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc4  (Digitize  corner  4  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc5  (Digitize  corner  5  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc6  (Digitize  corner  6  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc7  (Digitize  corner  7  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mcc8  (Digitize  corner  8  of  the  center  cube  on  the  mouth  mount.) 

Enter:  mlcl  (Digitize  corner  1  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc2  (Digitize  corner  2  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc3  (Digitize  corner  3  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc4  (Digitize  corner  4  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc5  (Digitize  corner  5  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc6  (Digitize  corner  6  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc7  (Digitize  corner  7  of  the  left  cube  on  the  mouth  mount.) 

Enter:  mlc8  (Digitize  corner  8  of  the  left  cube  on  the  mouth  mount.) 

Enter:  nrcl  (Digitize  corner  1  of  the  right  cube  on  the  neck  mount.) 

Enter:  nrc2  (Digitize  corner  2  of  the  right  cube  on  the  neck  mount.) 

Enter:  nrc3  (Digitize  corner  3  of  the  right  cube  on  the  neck  mount.) 

Enter:  nrc4  (Digitize  corner  4  of  the  right  cube  on  the  neck  mount.) 

Enter:  nrc5  (Digitize  corner  5  of  the  right  cube  on  the  neck  mount.) 

Enter:  nrc6  (Digitize  corner  6  of  the  right  cube  on  the  neck  mount.) 
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Enter: 

nrc7 

Enter: 

nrc8 

Enter: 

nccl 

Enter: 

ncc2 

Enter: 

ncc3 

Enter: 

ncc4 

Enter: 

ncc5 

Enter: 

ncc6 

Enter: 

ncc7 

Enter: 

ncc8 

Enter: 

nlcl 

Enter: 

nlc2 

Enter: 

Enter: 

nlc^i- 

Enter: 

nlc5 

Enter: 

nlc6 

Enter: 

nlc7 

Enter: 

nlc8 

(Digitize  corner 
(Digitize  corner 

(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  comer 
(Digitize  comer 
(Digitize  corner 
(Digitize  corner 

(Digitize  comer 
(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  corner 
(Digitize  cf  r  er 


7 

8 

1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

3 

4 

5 

6 

7 

8 


of  the  light  cube  on  the  neck  mount.) 
of  the  right  cube  on  the  neck  mount.) 

of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 
of  the  center  cube  on  the  neck  mount.) 

of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 
of  the  left  cube  on  the  neck  mount.) 


“Enter  Photo  #  (1-6,  0  when  finished)”  will  be  displayed  at  the  end  of  processing.  Repeat  the  above 
steps  for  each  photo  to  be  digitized.  Enter  0  at  this  prompt  when  you  have  digitized  the  last  photo. 


Head  Anthropometry.  After  entering  the  number  1  as  the  processing  option,  the  display  will  be: 
“Enter  HRV  number.”  The  user  will  enter  a  four  digit  integer  as  the  human  research  volunteer  number 
(i.e.,  0222  for  HRV  number  H-222).  The  following  will  be  printed:  “Default  ear  offsets  are:  5.420", 
5.420",  OK?”  Press  the  RETURN  key  to  accept  these  defaults,  any  other  key  to  change  them.  If  the 
user  presses  RETURN,  processing  will  continue.  “Enter  left  and  right  ear  offsets:”  will  be  displayed  if 
anything  else  is  entered.  The  user  will  be  given  this  information  before  processing. 

The  files  are  then  searched  to  insure  that  new  data  is  being  processed.  If  data  for  the  given  subject 
exists,  the  program  will  terminate  and  the  user  will  be  notified  that  the  data  already  exists.  If  the  data 
does  not  exist,  the  user  will  be  requested  to  digitize  the  points  as  follows: 

The  edges,  targets  A-K,  the  right  cube  comers,  the  center  cube  corners,  and  the  left  cube  corners  are 
digitized  in  the  same  sequence  as  for  initial  conditions.  (See  Initial  Conditions  section,  page  6).  The 
head  anthropometry  data  is  requested  after  all  reference  points  have  been  digitized.  The  input  for  runs 
before  LZ0930  is  as  follows: 


Enter: 

rtp 

Enter: 

ctp 

Enter: 

Itp 

Enter: 

ron 

Enter: 

Ion 

Enter: 

earl-r 

Enter: 

ear2-r 

(Digitize  right  side  of  T-plate.) 

(Digitize  center  of  T-plate.) 

(Digitize  left  side  of  "  plate.) 

(Digitize  right  orbital  notch  (eye 
(Digitize  left  orbital  notch  (eye).) 

(Digitize  right  ear  target  farthest  away  from  head.) 
(Digitize  2nd  farthest  right  ear  target.) 
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Enter:  ear3-r  (Digitize  2nd  closest  right  ear  target.) 

Enter:  ear4-r  (Digitize  right  ear  target  closest  to  head.) 

Enter:  earl-1  (Digitize  left  ear  target  farthest  away  from  head.) 
Enter:  ear2-l  (Digitize  2nd  farthest  left  ear  target.) 

Enter:  ear3-l  (Digitize  2nd  closest  left  ear  target.) 

Enter:  ear4-l  (Digitize  left  ear  target  closest  to  head.) 

Runs  from  LZ0930  and  above  are  processed  as  follows: 


Enter 

Enter 

Enter 

Enter: 

Enter 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 

Enter: 


ron  (Digitize  right  orbital  notch  eye).) 

Ion  (Digitize  left  orbital  notch  (eye).) 
earl-r  (Digitize  right  ear  target  farthest  away  from  head.) 
ear2-r  (Digitize  2nd  farthest  right  ear  target.) 
ear3-r  (Digitize  2nd  closest  right  ear  target.) 
ear4-r  (Digitize  right  ear  target  closest  to  head.) 
earl-1  (Digitize  left  ear  target  farthest  away  from  head.) 
ear2-l  (Digitize  2nd  farthest  left  ear  target.) 
ear3-l  (Digitize  2nd  closest  left  ear  target.) 
ear4-l  (Digitize  left  ear  target  closest  to  head.) 
mrcl  (Digitize  corner  1  of  the  right  cube  on  the  mouth  mount.) 

mrc2  (Digitize  corner  2  of  the  right  cube  on  the  mouth  mount.) 

mrc3  (Digitize  corner  3  of  the  right  cube  on  the  mouth  mount.) 

mrc4  (Digitize  corner  4  of  the  right  cube  on  the  mouth  mount.) 

mrc5  (Digitize  corner  5  of  the  right  cube  on  the  mouth  mount.) 

mrc6  (Digitize  corner  6  of  the  right  cube  on  the  mouth  mount.) 

mrc7  (Digitize  corner  7  of  the  right  cube  on  the  mouth  mount.) 

mrc8  (Digitize  corner  8  of  the  right  cube  on  the  mouth  mount.) 

mccl  (Digitize  corner  1  of  the  center  cube  on  the  mouth  mount.) 

mcc2  (Digitize  corner  2  of  the  center  cube  on  the  mouth  mount.) 

mcc3  (Digitize  corner  3  of  the  center  cube  on  the  mouth  mount.) 

mcc4  (Digitize  corner  4  of  the  center  cube  on  the  mouth  mount.) 

mcc5  (Digitize  corner  5  of  the  center  cube  on  the  mouth  mount.) 

mcc6  (Digitize  corner  6  of  the  center  cube  on  the  mouth  mount.) 

mcc7  (Digitize  corner  7  of  the  center  cube  on  the  mouth  mount.) 

mcc8  (Digitize  corner  8  of  the  center  cube  on  the  mouth  mount.) 


Enter: 

mlcl 

(Digitize  corner  1 

Enter: 

mlc2 

(Digitize  corner  2 

Enter: 

mlc3 

(Digitize  corner  3 

Enter: 

mlc4 

(Digitize  corner  4 

Enter: 

mlc5 

(Digitize  corner  5 

Enter: 

mlc6 

(Digitize  corner  6 

Enter: 

nilc7 

(Digitize  corner  7 

Enter: 

mlc8 

(Digitize  corner  8 

of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 
of  the  left  cube  on  the  mouth  mount.) 


“Enter  photo  #(1-6,  0  when  finished)”  will  be  displayed  at  the  end  of  processing.  Repeat  the  above 
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steps  for  each  photo  to  be  digitized.  Enter  0  to  this  prompt  when  you  have  digitized  the  last  photo. 


Body  (Neck)  Anthropometry.  As  discussed  earlier,  the  neck  anthropometry  is  obtained  from  X-rays. 
This  will  be  referred  to  as  body  anthropometry  because  in  this  new  procedure  more  than  the  neck  is 
considered.  After  the  number  2  is  entered  as  the  processing  option,  the  display  will  be:  “Enter  HRV 
number.”  The  user  will  enter  a  four  digit  integer  as  the  HRV  number  (i.e.,  0222  would  be  entered  for 
HRV  number  H-222).  If  a  data  file  exists  for  the  given  subject,  the  program  will  terminate  with  a  file 
error.  No  specific  details  will  be  relayed  to  the  user.  If  the  data  does  not  exist,  processing  will  continue 
and  the  following  will  be  displayed:  “Enter  number  of  parameters  for  shrinkage  fit:”  The  user  will  input 
the  number  8,  and  the  following  will  appear: 

Enter  0  when  finished 

Enter  1  if:  Left  eye  view-left  shoulder  to  plate 

Enter  2  if:  Right  eye  view-left  shoulder  to  plate 

Enter  :  if:  Left  eye  view-right  shoulder  to  plate 

Enter  4  if:  Right  eye  view-right  shoulder  to  plate 

The  number  to  be  entered  is  determined  by  the  X-ray  being  digitized.  The  numbers  1  through  4 
represent  the  four  X-rays  discussed  earlier.  The  T-1  anatomical  coordinate  system  (Figure  1)  should  have 
been  marked  on  these  X-rays  in  stereo  before  digitization.  The  user  will  be  requested  to  digitize  the 
points  as  outlined  in  Figure  3  or  Figure  4. 

Fiducials  1  through  10  are  entered  first.  The  user  must  follow  the  sequence  indicated  in  Figures  3  and 
4.  There  is  no  prompting.  However,  the  data  entered  is  printed  on  the  screen  to  ensure  proper  entry. 
The  user  must  check  the  screen  to  verify  correct  digitization. 

The  input  will  be  as  follows: 

Fiducial  1  (Input  carefully;  you  will  have  to  re-enter  it  to  close  out.) 


Fiducial  10 

As  with  the  others,  an  error  valut  will  be  printed.  Check  the  rms  value;  it  must  be  less  than  one.  If 
not,  the  data  is  erroneous  and  you  must  start  over. 

Runs  before  LZ0930  are  processed  as  follows: 


Origin 

Rib-lf 

(Left  Rib  Articulation) 

Rib-rt 

(Right  Rib  Articulation) 

Spine  Top 

crop  Spinous  Process) 

Spine  Bot 

(Bottom  Spinous  Process) 

Spine-bb 

Sternum 

(Posterior  Spinous  Process) 

If-shold 

(Left  Shoulder) 

rt-shold 

(Right  Shoulder) 
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VIEW  OF  AN  X-RAY 


Locations  of  Biducials  on  X-ray 


7 


5 

1 


Order  of  Digitization 

10 


8  9 

— 3rd - 

— - > 

Approximate 

Locations 

6 

—2nd - 

- > 

Below 

4 

— 1st - 

- > 

2  3 


Approximate  Body  Locations  on  X-ray 

rneckT  IneckT 


rtp 


ctp 


Itp 


rneckB 


IneckB 

rt_rib  If^rib  spine_bb 

top_spin 
bot_spin 

origin 


rt  shold  sternum 


If  shold 


Fiducials  1-10  are  entered  first 

then  proceed  as 

follows: 

Origin 

itp 

(Left  Side  of  T-Plate) 

Rib-lf 

(Left  Rib  Articulation) 

rtp 

(Right  side  of  T-Plate) 

Rib-rt 

(Right  Rib  Articulation) 

ctp 

(Center  of  T-Plate) 

Spine  Top 

(Top  Spinous  Process) 

IneckT 

(Left  Neck  Top) 

Spine  Bot 

(Bottom  Spinous  Process) 

IneckB 

(Left  Neck  Bottom) 

Spine-bb 

(Posterior  Spinous  Process) 

rneckT 

(Right  Neck  Top) 

Sternum 

rneckB 

(Right  Neck  Bottom) 

If-shold 

(Left  Shoulder) 

rt-shold 

(Right  Shoulder) 

Figure  3.  X-ray  anthropometry  digitization  schematic  diagram:  Pre-mount  modiflcation  — 
T-plate. 
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VIEW  OF  AN  X-RAY 


Locations  of  Flducials  on  X-ray 


Approximate 

Locations 

Below 


Order  of  Digitization 


— 1st - > 


“2nd- 


“3rd - > 


Approximate  Body  Locations  on  X-ray 


rneckT 


IneckT 


rneckB  IneckB 

rt_r  ib  1  f  ib  spine__bb 

top_spin 
bot^spin 

origin 


rt  shold 


sternum 


Origin 

Rib-lf 

Rib-rt 

Spine  Top 

Spine  Bot 

Spine-bb 

Sternum 

If-shold 

rt-shold 

bieckT 

bieckB 

meckT 


Fiducials  1-10  are  entered 

(Left  Rib  Articulation) 

(Right  Rib  Articulation) 

(Top  Spinous  Process) 

(Bottom  Spinous  Process) 
(Posterior  Spinous  Process) 

(Left  Shoulder) 

(Right  Shoulder) 

(Left  Neck  Top) 

(Left  Neck  Bottom) 

(Right  Neck  Top) 


lf_shold 


first  then  proceed  as  follows: 

rneckB  (Right  Neck  Bottom) 
rl  (Right  Cube  Comer  1) 

r8  (Right  Cube  Comer  8) 
cl  (Center  Cube  Comer  1) 

c8  (Center  Cube  Comer  8) 

11  (Left  Cube  Comer  1) 

18  (Left  Cube  Comer  8) 

Note:  rl  is  digitized  after  rneckB. 


Figure  4.  X-ray  Anthropometry  Digitizing  Schematic  Diagram:  Post  Mount  Modification 
T-plate. 
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Itp 

(Left  Side  of  T-Plate) 

rtp 

(Right  side  of  T-Plate) 

ctp 

(Center  of  T-Plate) 

IneckT 

(Left  Neck  Top) 

IneckB 

(Left  Neck  Bottom) 

rneckT 

(Right  Neck  Top) 

rneckB 

(Right  Neck  Bottom) 

Re-do  first  fiducial  (Re-digitize  the  first  point  you  digitized) 
Runs  from  LZ0930  and  above  are  processed  as  follows: 


Origin 

Rib-lf 

(Left  Rib  Articulation) 

Rib-rt 

(Right  Rib  Articulation) 

Spine  Top 

(Top  Spinous  Process) 

Spine  Bot 

(Bottom  Spinous  Process) 

Spine-bb 

(Posterior  Spinous  Process) 

Sternum 

If-shold 

(Left  Shoulder) 

rt-shold 

(Right  Shoulder) 

IneckT 

(Left  Neck  Top) 

IneckB 

(Left  Neck  Bottom) 

rneckT 

(Right  Neck  Top) 

rneckB 

(Right  Neck  Bottom) 

rl 

(Right  Cube  Corner  1) 

r2 

(Right  Cube  Corner  2) 

r3 

(Right  Cube  Corner  3) 

r4 

(Right  Cube  Corner  4) 

r5 

(Right  Cube  Corner  5) 

r6 

(Right  Cube  Corner  6) 

r7 

(Right  Cube  Corner  7) 

r8 

(Right  Cube  Corner  8) 

cl 

(Center  Cube  Corner  1) 

c2 

(Center  Cube  Corner  2) 

c3 

(Center  Cube  Corner  3) 

c4 

(Center  Cube  Corner  4) 

c5 

(Center  Cube  Corner  5) 

c6 

(Center  Cube  Corner  6) 

c7 

(Center  Cube  Corner  7) 

c8 

(Center  Cube  Corner  8) 

11 

(Left  Cube  Corner  1) 

12 

(Left  Cube  Corner  2) 

14 
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13  (Left  Cube  Corner  3) 

14  (Left  Cube  Corner  4) 

15  (Left  Cube  Corner  5) 

16  (Left  Cube  Corner  6) 

17  (Left  Cube  Corner  7) 

18  (Left  Cube  Corner  8) 

Re-do  first  fiducial  (Re-digitize  the  first  point  you  digitized) 

Repeat  the  above  steps  for  each  X-ray. 

Note  that  the  user  should  be  especially  careful  when  digitizing  fiducial  1.  This  is  the  close-out 
reference  point.  The  first  and  last  the  data  points  entered  are  compared  to  check  the  accuracy  of  the  data. 
If  the  difference  between  the  two  is  too  great,  the  user  will  be  given  four  tries  to  read  the  point  correctly. 
After  four  tries,  the  program  will  terminate  and  all  the  data  will  have  to  be  re-entered. 

Additional  Information.  Mounts  similar  to  those  shown  in  Figures  5  and  6  have  been  used  on  the 
mouth  and  neck  to  gain  initial  conditions,  head  anthropometry,  and  body  anthropometry  data.  All 
references  to  right  and  left,  for  both  photos  and  X-rays,  are  with  respect  to  the  subject.  The  right  cube 
is  on  the  subject’s  right  and  the  left  cube  on  the  subject’s  left.  The  cubes  are  numbered  as  shown  in 
Figure  7.  The  mount  is  in  a  different  position  when  on  the  neck.  Figure  8  shows  the  position  of  the 
mount  when  on  the  neck  (lying  down).  Note  that  the  numbering  of  the  corners  of  the  cubes  have  not 
changed.  Only  the  positions  of  the  cubes  have  changed. 

Programs 

The  following  program  and  subroutines  are  available: 

DIGITIZE  —  Main  digitization  program  which  digitizes  data  and  creates  the  GIANT 
image  data  files  (NPREP). 

HEAD  —  Digitizes  head  anthropometry  ano  initial  conditions. 

BODY  —  Digitizes  body  anthropometry. 

FID  —  Determines  corner  fiducials. 

FOURP  —  Calculates  the  three-  or  four-parameter  transformations. 

FIVEP  —  Calculates  the  five-parameter  transformation. 

SIXP  —  Calculates  the  six-parameter  transformation. 

EIGHTP  —  Calculates  the  eight-parameter  transformation. 
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Figure  6.  Photogrammetric  Mount. 
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Figure  7.  Comer  Designations  for  Photogrammetry:  Position 
on  Mouth. 


Figure  8.  Corner  Designations  for  Photogranunetry:  Position 
of  Neck. 
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ACCAPR 

ACCNEQ 

INVERT 

LINSOL 

CLEAR 

NEWPAG 


—  Acquires  approximate  values  of  the  eight-parameter  transformation. 

—  Acquires  normal  equations  for  the  eight-parameter  transformation. 

—  Finds  the  inverse  of  a  matrix. 

—  Solves  linear  equations. 

—  Clears  the  screen  and  moves  the  cursor  to  row  8. 

—  Writes  title  and  page  number. 


Subroutine  Descriptions 


HEADS.  The  HEADS  routine  allows  the  operator  to  digitize  head  anthropometry  or  initial  conditions 
photos.  The  call  is: 


CALL  HEADS(IANS) 


where 


IANS  =  0  for  digitization  of  initial  conditions 

=  1  for  digitization  of  head  anthropometry 


BODY.  The  BODY  routine  allows  the  operator  to  digitize  body  anthropometry  X-rays.  The  call  is: 

CALL  BODY 


FID.  The  FID  routine  intersects  the  edge  lines  formed  by  a  least  squares  solution  on  three  points  to  give 
the  comer  fiducials.  It  also  stores  the  output  in  the  same  array  used  for  input.  The  call  is: 

CALL  FID(Z) 


where 


Z  =  X,  Y  coordinates  of  three  points  along  the  four  edges  of  the  photo  when  Z  is  the 
input. 

=  The  corner  fiducials  coordinates  when  Z  is  the  output. 
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FOURP.  The  FOURP  routine  calculates  the  three-  and  four-parameter  transformation  between  an  exact 
set  of  data  and  a  corresponding  set  of  measured  data.  The  call  is: 

CALL  FOURP 


nVEP.  The  FIVEP  routine  calculates  the  five-parameter  transformation  between  an  exact  set  of  data 
and  a  corresponding  set  of  measured  data.  The  call  is: 

CALL  FIVEP 


SIXP.  The  SIXP  routine  calculates  the  six-parameter  transformation  between  an  exact  set  of  data  s  -:  ■ 
a  corresponding  set  of  measured  data.  The  call  is: 

CALL  SIXP 


EIGHTP.  The  EIGHTP  routine  calculates  the  eight-parameter  transformation  between  an  exact  set  of 
data  and  a  corresponding  set  of  measured  data.  Hie  call  is: 

CALL  EIGHTP 


ACCAPR.  The  ACCAPR  routine  evaluates  the  contribution  of  one  point  to  the  8  x  9  matrix  of  normal 
equations  for  computation  of  approximate  values  of  the  eight-parameter  film  shrinkage  transformation. 
The  call  is: 

CALL  ACCAPR(XG,  YG,XP,  YP) 

where 

XG  =  Calibrated  X  fiducial  coordinate 

YG  =  Calibrated  Y  fiducial  coordinate 

XP  =  Observed  X  fiducial  coordinate 

YP  =  Observed  Y  fiducial  coordinate 

EQN  =8x8  coefficient  matrix  of  the  Normal  Equation  with  the  vector  of  constants  in 
colunrn  9 


ACCNEQ.  The  ACCNEQ  routine  evaluate^'  the  contribution  of  one  point  to  the  normal  equation 
required  for  subroutine  EIGHTP.  The  norma  uations  are  required  to  compute  corrections  to  the  last 
estimate  of  the  eight-transformation  parameters.  This  routine  is  called  once  for  each  point.  The  call  is: 

CALL  ACCNEQiXG,  YG,XP  yp) 
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where 

XG  =  Calibrated  X  fiducial  coordinate 

YG  =  Calibrated  Y  fiducial  coordinate 

XP  =  Observed  X  fiducial  coordinate 

YP  =  Observed  Y  fiducial  coordinate 

EQN  =8x8  coefficient  matrix  of  the  Normal  Equation  with  the  vector  of  constants  in 
column  9 

INVERT.  The  INVERT  routine  finds  the  inverse  of  a  matrix  by  the  Gaussian  Elimination  Method.  The 
routine  will  search  for  the  largest  non-singular  matrix  in  the  input  array,  invert  it,  and  return  the  inverse 
in  the  same  array.  The  call  is: 

CALL  INVERT(A,N,D) 

where 

A  =  Array  in  which  the  matrix  to  be  inverted  is  located  and  also  the  location  of  the 
inverted  matrix  that  is  returned. 

N  =  The  first  dimension  of  array  A  when  used  in  the  call  statement.  It  contains  the  rank 
of  the  largest  matrix  contained  in  A  as  a  returned  value. 

D  =  The  determinant  of  the  largest  non-singular  matrix  in  A. 

LINSOL.  The  LINSOL  routine  solves  a  specified  number  of  linear  equations  with  a  specified  number 
of  unknowns.  The  call  is: 

CALL  LINSOL(NPAR) 

where 

NPAR  =  The  number  of  linear  equations  and  the  number  of  unknowns 

CLEAR.  The  CLEAR  routine  clears  the  screen  and  moves  the  cursor  to  row  eight.  The  call  is: 

CALL  CLEAR 

NEWPAG.  The  NEWPAG  routine  prints  the  title,  page  number,  and  any  header  information  on  each 
page.  The  call  is: 

CALL  NEWPAG 
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Giant  Subroutines  Customized  for  NAVBIODYNLAB 


Several  subroutines  were  added  to  GIANT  *  enhance  the  program  for  use  by  NAVBIODYNLAB. 

These  include  the  following  subroutines: 

ANTHRO  —  Verifies  that  the  needed  13  head  or  8  body  points  are  available.  This 

routine  finds  the  transformations  and  prints  the  results. 

EXTRAPOLATE  —  Extrapolates  anthropometry  data. 

GETICV  —  Searches  object  point  IDs  for  matching  IDs  of  targets  on  the  head, 

mouth,  and  neck.  Desired  variables  are  saved  for  the  initial  conditions 
data  file. 


ICONS 

NBDL 

STUFF? 

UVEC 


—  Writes  initial  conditions  data  to  a  file. 

—  Finds  the  origin  and  transformation  matrices  of  the  mount  relative  to  the 
head/body  anatomical  origin  in  the  anatomical  coordinate  system. 

—  Searches  object  point  IDs  to  find  matching  IDs  in  the  anthropometry  list 
and  stores  object  point  data  in  corresponding  locations  in  an  array. 

—  This  routine  creates  a  unit  vector. 
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Reference 

Becker,  E.  B.,  “Stereoradiographic  Measurements  for  Anatomically  Mounted  Instruments,”  Proceedings 
of  the  Twenty-First  STAPP  Car  Crash  Conference,  Society  of  Automotive  Engineers,  Inc., 
Warrendale,  PA,  pp.  477-505,  October,  1977. 
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Appendixes 

Appendix  A 

Listings  of  Prep  Output  Files 


Body  Anthropometry  Printed  Output 


Page  1 
Date:  10/08/92 

Caliubrated  Fiducial  Coordinates  of  Frame  LfEyLfSh 


Fid 

X 

y 

1 

-193.950 

148.160 

2 

-80.380 

162.380 

3 

75,670 

164.310 

4 

191.214 

148.961 

5 

-193.920 

-5.010 

6 

192.310 

-4.800 

7 

-193.010 

-159.210 

8 

-80.050 

-147.600 

9 

75.390 

-144.880 

10 

192.720 

-158.520 

Naval  BioDynamics  Laboratory  PREP 
Body  Anthropometry  for  HRV  #  00253 
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8 

0.094  0.138 

9 

-0.127  -0.216 

Rms 

0.108  0.126 

Rms (check) 

0.300  0.206 

Transformation  Parameters  Are; 

1.001305  0.005593 

-275.7444  -0.000006 

0.000006 

-0.004836  1.000885 

-180.2756 

Naval  BioDynamics  Laboratory  PREP 

Page 

Body  Anthropometry  for  HRV  #  00253 

Date 

; 10/08/92 

Plate  Coordinates  for  Frame  LfEyLfSh 


ID 

Measured 

Adjusted 

X 

y 

X 

Y 

Origin 

392.684 

196.063 

118.707 

14.080 

Rib  Lf 

392.405 

185.572 

118.376 

3.568 

Rib_Rt 

343.433 

206.654 

69.359 

24.925 

SpineTop 

306.248 

199.390 

32.043 

17.823 

SpineBot 

302.311 

189.509 

28.043 

7.946 

spine_bb 

276.987 

197.028 

2.708 

15.596 

sternum 

404.876 

100.863 

130.484 

-81.443 

lf_shold 

304.571 

91.186 

29.776 

-90.609 

IneckT 

284.099 

232.283 

10.029 

50.860 

IneckB 

282.245 

164.922 

7.797 

-16.586 

rneckT 

94.056 

242.087 

-180.056 

61.518 

rneckB 

93.091 

160.071 

-181.569 

-20.506 

rl 

208.661 

284.251 

-65.197 

103.179 

r2 

209.423 

258.293 

-64.590 

77.216 

r3 

217.449 

261.341 

-56.539 

80.230 

r4 

218.694 

296.418 

-55.086 

115.302 

r5 

229.387 

281.711 

-44.472 

100.553 

r6 

230.226 

256.184 

-43.783 

75.017 

rl 

241.859 

260.071 

-32.115 

78.854 

r8 

242.087 

294.361 

-31.688 

113.149 

cl 

193.192 

281.940 

-80.686 

100.933 

c2 

192.557 

255.448 

-81.482 

74.444 

c3 

198.933 

261.163 

-75.069 

80.132 

c4 

200.990 

294.589 

-72.809 

113.547 

c5 

212.801 

280.238 

-61.078 

99.149 

c6 

212.928 

254.991 

-61.102 

73.898 

cl 

223.520 

259.740 

-50.473 

78.603 

c8 

223.291 

290.805 

-50.519 

109.671 

11 

279.654 

285.420 

5.871 

104.052 

12 

279.070 

257.099 

5.129 

75.719 

13 

298.475 

258.953 

24.577 

77.490 

14 

299.796 

287.757 

26.057 

106.306 

15 

298.298 

283.464 

24.533 

102.017 

16 

297.967 

256.210 

24.053 

74.747 

17 

318.389 

256.896 

44.519 

75.345 

18 

317.170 

285.725 

43.451 

104.200 
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Naval  BioDynamics  Laboratory  PREP  Page  4 

Body  Anthropometry  for  HRV  #  00253  Date;  10/08/92 

Calibrated  Fiducial  Coordinates  of  Frame  RtEyLfSh 


Fid 

X 

Y 

1 

-193.950 

148.160 

2 

-80.380 

162.380 

3 

75.670 

164.310 

4 

191.214 

148.961 

5 

-193.920 

-5.010 

6 

192.310 

-4.800 

7 

-193.010 

-159.210 

8 

-80.050 

-147.600 

9 

75.390 

-144.880 

10 

192.720 

-158.520 

Page  5 
Date:  10/08/92 


Naval  BioDynamics  Laboratory  PREP 
Body  Anthropometry  for  HRV  #  00253 


Fiducial  Measurements  of  Frame  RtEyLfSh 


ID 

Measured 

X 

y 

1 

112.192 

337.490 

2 

226.136 

351.282 

3 

382.219 

352.704 

4 

498.500 

336.982 

5 

111.684 

184.302 

6 

498.780 

183.007 

8 

225.273 

41.123 

9 

380.670 

42.901 

Parameter  Residuals  of  the 

Fiducial  Coordinates 

Fid 

X 

y 

1 

-0.082 

0.030 

2 

0.160 

-0.046 

3 

-0.189 

-0.065 

4 

0.140 

-0.026 

5 

-0.053 

0.057 

6 

0.000 

0.180 

8 

0.179 

0.011 

9 

-0.155 

-0.141 

Rms 

0.135 

0.089 

Rms( check) 

0.374 

0.200 

Transformation  Parameters  Are: 

1,000134  -0.004064  -305.1258  0.000006  0.000002 

0 . 004181  1 . 001018  -189 . 9147 
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Naval  BioDynamics  Laboratory  PREP 

Body  Anthropometry  for  HRV  #  00253  Date: 


Plate  Coordinates  for  Frame  RtEyLfSh 


ID 

Measured 

Adjusted 

X 

Y 

X 

Y 

Origin 

341.097 

196.774 

35.129 

8.464 

Rib  Lf 

342.113 

187.020 

36.183 

-1.271 

Rib_Rt 

293.040 

209.525 

-12.869 

21.002 

SpineTop 

267.945 

208.229 

-37.913 

19.606 

SpineBot 

263.195 

198.425 

-42.616 

9.793 

spine_bb 

237.922 

205.613 

-67.880 

16.871 

sternum 

351.790 

107.417 

46.164 

-80.724 

lf_shold 

277.038 

98.222 

-28.395 

-90.261 

IneckT 

257.962 

240.386 

-48.006 

51.687 

IneckB 

254.991 

172.872 

-50.706 

-15.770 

rl 

175.108 

293.167 

-130.970 

104.111 

r2 

175.616 

267.106 

-130.363 

78.073 

r3 

175.920 

271.221 

-130.075 

82.186 

r4 

177.902 

306.375 

-128.229 

117.318 

r5 

197.510 

290.474 

-108.576 

101.500 

r6 

198.069 

265.354 

-107.921 

76.405 

rl 

201.498 

269.418 

-104.511 

80.478 

r8 

202.743 

303.886 

-103.401 

114.917 

cl 

161.087 

291.236 

-144.976 

102.133 

c2 

160.350 

264.465 

-145.610 

75.377 

c3 

159.360 

271.018 

-146.625 

81.922 

c4 

161.366 

304.216 

-144.745 

115.104 

c5 

181.940 

289.001 

-124.127 

99.973 

c6 

181.940 

263.855 

-124.031 

74.847 

cl 

185.268 

269.138 

-120.726 

80.139 

c8 

185.293 

300.152 

-120.820 

111.126 

11 

245.567 

293.878 

-60.593 

105.070 

12 

244.500 

265.557 

-61.547 

76.779 

13 

262.661 

267.106 

-43.421 

78.394 

14 

264.160 

295.885 

-42.040 

107.139 

15 

265.633 

291.440 

-40.552 

102.705 

16 

264.719 

264.109 

-41.356 

75.408 

17 

283.591 

264.744 

-22.521 

76.112 

18 

282.956 

293.370 

-23.270 

104.694 

Naval  BioDynamics  Laboratory  PREP 

Body  Anthropometry  for  HRV  #  00253  Date: 

Calibrated  Fiducial  Coordinates  of  Frame  LfEyRtSh 


Fid  X 

1  -193.950 

2  -80.380 

3  75.670 

4  191.214 

5  -193.920 

6  192.310 

7  -193.010 

8  -80.050 


Y 

148.160 

162.380 

164.310 

148.961 

-5.010 

-4.800 

-159.210 

-147.600 


Page  6 
10/08/92 


Page  7 
10/08/92 
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9  75.390  -144.880 

10  192.720  -158.520 

Page  8 
Date:  10/08/92 


Naval  BioDynamics  Laboratory  PREP 
Body  Anthropometry  for  HRV  #  00253 


Fiducial  Measurements  of  Frame  LfEyRtSh 


ID 

2 

3 

4 

5 

6 
8 
9 


Measured 

X 

215.011 

370.840 

486.004 

99.162 

484.683 

210.871 

366.039 


Y 

356.464 

356.108 

339.065 

190.627 

185.598 

46.711 

47.523 


Parameter  Residuals  of  the 

Fiducial  Coordinates 

Fid 

X 

Y 

2 

0.015 

0.041 

3 

-0.079 

0.004 

4 

0.045 

-0.040 

5 

0.039 

-0.015 

6 

0.008 

-0.003 

8 

-0.043 

-0.048 

9 

0.015 

0.060 

Rms 

0.041 

0.037 

Rms( check) 

0.225 

0.203 

Transformation  Parameters  Are: 

1.001048  -0.014627  -290.4377  -0.000005  0.000005 

0.013654  1.000787  -197.1577 


Page  9 
Date:  10/08/92 

Plate  Coordinates  for  Frame  LfEyRtSh 


Naval  BioDynamics  Laboratory  PREP 
Body  Anthropometry  for  HRV  #  00253 


ID 

Measured 

Adjusted 

X 

Y 

X 

Y 

Origin 

206.248 

200.685 

-86.914 

6.502 

Rib  Lf 

266.852 

203.327 

-26.289 

9.976 

Rib_Rt 

212.268 

198.171 

-80.854 

4.068 

SpineTop 

280.289 

209.982 

-12.931 

16.823 

SpineBot 

284.277 

201.066 

-8.808 

7.952 

spine  bb 

317.627 

217.221 

24.357 

24.583 

sternum 

185.445 

127.076 

-106.689 

-67.469 

rt  shold 

291.948 

104.546 

0.287 

-88.623 

rneckT 

318.668 

245.110 

24.989 

52.517 

rneckB 

318.414 

177.368 

2E.734 

-15.313 

rl 

297.764 

306.019 

3.162 

113.169 

r2 

298.221 

274.447 

4.082 

81.590 

r3 

318.338 

273.583 

24.238 

81.008 

r4 

315.824 

301.981 

21.302 

109.385 
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r5 

281.203 

303.606 

-13.380 

110.520 

r6 

279.832 

272.872 

-14.305 

79.756 

r7 

298.552 

271.907 

4.450 

79.053 

r8 

298.247 

301.117 

3.717 

108.272 

cl 

386.156 

299.517 

91.784 

107.917 

c2 

386.080 

274.701 

92.081 

83.079 

c3 

403.809 

271.602 

109.895 

80.226 

c4 

402.768 

296.977 

108.468 

105.610 

c5 

366.217 

297.815 

71.834 

105.931 

c6 

365.455 

272.847 

71.444 

80.933 

c7 

383.794 

270.104 

89.860 

78.444 

c8 

383.388 

295.427 

89.072 

103.785 

11 

372.212 

313.487 

77.604 

121.698 

12 

373.050 

282.194 

78.913 

90.395 

13 

391.566 

280.873 

97.486 

89.334 

14 

390.525 

310.591 

95.994 

119.061 

15 

352.222 

310.744 

57.622 

118.669 

16 

350.647 

280.873 

56.489 

88,757 

17 

370.586 

278.663 

76.497 

86.827 

18 

369.875 

308.204 

75.342 

116.378 

Naval  BioDynamics  Laboratory  PREP 

Body  Anthropometry  for  HRV  #  00253  Date: 

Calibrated  Fiducial  Coordinates  of  Frame  RtEyRtSh 


Fid  X  Y 


1 

-193.950 

148.160 

2 

-80.380 

162.380 

3 

75.670 

164.310 

4 

191.214 

148.961 

5 

-193.920 

-5,010 

6 

192.310 

-4.800 

7 

-193.010 

-159.210 

8 

-80.050 

-147.600 

9 

75.390 

-144.880 

10 

192.720 

-158,520 

Naval  BioDynamics  Laboratory  PREP 

Body  Anthropometry  for  HRV  #  00253  Date: 


Fiducial  Measurements  of  Frame  RtEyRtSh 


ID 

2 

3 

4 

5 

6 
8 
9 


Measured 

X 

191.770 

347.193 

462.991 

83.033 

468.249 

201.092 

356.235 


Y 

344.272 

350.647 

338.658 

173.711 

185.293 

34.976 

42.723 


8-parameter  Residuals  of  the  Fiducial  Coordinates 


Fid 

2 


X 

0.153 


Y 

-0.009 


Page  10 
10/08/92 


Page  11 
10/08/92 
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3 

0.034 

4 

0.09 

0.077 

5 

—0 « 02  b 

-0.026 

6 

-0.100 

-0.192 

8 

-0.111 

-0.032 

9 

0.175 

0.148 

Rms 

0.133 

0.098 

Rins(  check) 

0.329 

0.391 

Transformation  Parameters  Are: 
0.999771  0.029486  -282.0947  -0.000010 

-0.029919  1.000464  -176.3431 

0.000005 

Naval  BioDynamics  Laboratory  PREP 

Body  Anthropometry  for  HRV  #  00253 

Page  12 
Date:  10/08/92 

Plate  Coordinates  for  Frame  RtEyRtSh 


ID 

Measured 

Adjusted 

X 

y 

X 

Y 

Origin 

134.137 

188.671 

-142.475 

8.405 

Rib  Lf 

189.611 

189.611 

-87.014 

7.690 

Rib_Rt 

139.954 

183.007 

-136.836 

2.563 

SpineTop 

201.752 

197.358 

-74.642 

15.085 

SpineBot 

212.700 

189.738 

-63.920 

7.127 

spine_bb 

249.682 

207.696 

-26.382 

24.012 

sternum 

114.097 

111.735 

-164.820 

-68.008 

rt_shold 

241.376 

95.606 

-38.026 

-88.080 

IneckT 

448.894 

258.318 

174.851 

68.876 

IneckB 

448.818 

175.539 

172.400 

-14.200 

rneckT 

260.883 

236.753 

-14.309 

52.786 

rneckB 

263.627 

169.037 

-13.568 

-15.141 

rl 

227.457 

294.919 

-46.027 

111.989 

r2 

229.667 

263.982 

-44.737 

80.963 

r3 

250.800 

263.601 

-23.606 

79.966 

r4 

246.786 

292.125 

-26.776 

108.635 

r5 

212.242 

291.821 

-61.332 

109.327 

r6 

212.979 

260.680 

-61.525 

78.145 

r7 

232.385 

260.985 

-42.108 

77.884 

r8 

230.302 

290.373 

-43.317 

107.357 

cl 

316.713 

292.735 

43.246 

107.224 

c2 

317.805 

267.614 

43.604 

82.030 

c3 

336.829 

266.040 

62.624 

79.897 

c4 

334.467 

291.490 

61.000 

105.464 

c5 

297.713 

290.195 

24.142 

105.230 

c6 

298.577 

265.405 

24.278 

80.378 

c7 

317.475 

263.322 

43.148 

77.740 

c8 

316.078 

288.442 

42.484 

102.944 

11 

296.748 

306.095 

23.643 

121.179 

12 

299.364 

275.488 

25.363 

90.454 

13 

318.973 

274.803 

44.986 

89.197 

14 

316.332 

304.038 

43.196 

118.555 

15 

278.155 

302.997 

4.937 

118.612 

16 

278.790 

272.745 

4.680 

88.306 

17 

299.568 

271.653 

25.454 

86.607 

18 

297.002 

300.330 

23.728 

115.399 
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Body  Anthropometry  Image  Data  File 


LfEyLfSh 

Origin 

-838.200 

118.7074 

1.000 

14.0804 

1.000 

Photo 

LfEyLfSh 

Rib  Lf 

118.3758 

3.5684 

Photo 

LfEyLfSh 

*Rib_Rt 

69.3593 

24.9248 

Photo 

LfEyLfSh 

SpineTop 

32.0426 

17.8235 

Photo 

LfEyLfSh 

SpineBot 

28.0431 

7.9459 

Photo 

LfEyLfSh 

spine_bb 

2.7075 

15.5963 

Photo 

LfEyLfSh 

sternum 

130.4842 

-81.4432 

Photo 

LfEyLfSh 

*lf_shold 

29.7763 

-90.6093 

Photo 

LfEyLfSh 

IneckT 

10.0286 

50.8605 

Photo 

LfEyLfSh 

IneckB 

7.7974 

-16.5859 

Photo 

LfEyLfSh 

rneckT 

-180.0564 

61.5182 

Photo 

LfEyLfSh 

rneckB 

-181.5693 

-20.5057 

Photo 

LfEyLfSh 

*rl 

-65.1966 

103.1791 

Photo 

LfEyLfSh 

r2 

-64.5895 

77.2160 

Photo 

LfEyLfSh 

r3 

-56.5392 

80.2299 

Photo 

LfEyLfSh 

r4 

-55.0858 

115.3023 

Photo 

LfEyLfSh 

*r5 

-44.4719 

100.5526 

Photo 

LfEyLfSh 

r6 

-43.7825 

75.0169 

Photo 

LfEyLfSh 

r7 

-32.1149 

78.8540 

Photo 

LfEyLfSh 

r8 

-31.6877 

113.1492 

Photo 

LfEyLfSh 

cl 

-80.6856 

100.9327 

Photo 

LfEyLfSh 

c2 

-81.4819 

74.4441 

Photo 

LfEyLfSh 

*c3 

-75.0687 

80.1321 

Photo 

LfEyLfSh 

*c4 

-72.8086 

113.5465 

Photo 

LfEyLfSh 

*c5 

-61.0782 

99.1489 

Photo 

LfEyLfSh 

*c6 

-61.1016 

73.8980 

Photo 

LfEyLfSh 

cl 

-50.4732 

78.6031 

Photo 

LfEyLfSh 

c8 

-50.5188 

109.6709 

Photo 

LfEyLfSh 

11 

5.8712 

104.0517 

Photo 

LfEyLfSh 

12 

5.1286 

75.7192 

Photo 

LfEyLfSh 

13 

24.5773 

77.4904 

Photo 

LfEyLfSh 

14 

26.0571 

106.3056 

Photo 

LfEyLfSh 

15 

24.5327 

102.0173 

Photo 

LfEyLfSh 

16 

24.0535 

74.7473 

Photo 

LfEyLfSh 

17 

44.5187 

75.3447 

Photo 

LfEyLfSh 

18 

43.4507 

104.2003 

Photo 

LfEyLfSh 

******** 

RtEyLfSh 

Origin 

-838.200 

35.1290 

1.000 

8.4642 

1.000 

Photo 

RtEyLfSh 

Rib  Lf 

36.1826 

-1.2707 

Photo  RtEyLfSh 

Rib_Rt 

-12.8694 

21.0015 

Photo  RtEyLfSh 

SpineTop 

-37.9129 

19.6061 

Photo 

RtEyLfSh 

SpineBot 

-42.6158 

9.7926 

Photo 

RtEyLfSh 

spine_bb 

-67.8802 

16.8707 

Photo 

RtEyLfSh 

sternum 

46.1639 

-80.7238 

Photo 

RtEyLfSh 

*lf_shold 

-28.3954 

-90.2614 

Photo 

RtEyLfSh 

IneckT 

-48.0064 

51.6873 

Photo 

RtEyLfSh 

IneckB 

-50.7060 

-15.7700 

Photo 

RtEyLfSh 

*rl 

-130.9705 

104.1113 

Photo 

RtEyLfSh 

*r2 

-130.3634 

78.0729 

Photo 

RtEyLfSh 

*r3 

-130.0745 

82.1858 

Photo 

RtEyLfSh 

*r4 

-128.2289 

117.3177 

Photo  RtEyLfSh 

*r5 

-108.5759 

101.5004 

Photo  RtEyLfSh 

*r6 

-107.9208 

76.4045 

Photo  RtEyLfSh 
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r7 

-104.5107 

r8 

-103.4005 

cl 

-144.9755 

c2 

-145.6104 

*c3 

-146.6254 

*c4 

-144.7454 

*c5 

-124.1269 

*c6 

-124.0307 

*c7 

-120.7261 

*c8 

-120.8195 

11 

-60.5933 

12 

-61.5468 

13 

-43.4213 

14 

-42.0398 

15 

-40.5516 

16 

-41.3556 

17 

-22.5213 

18 

-23.2699 

******** 

LfEyRtSh 

-838.200 

Origin 

-86.9139 

Rib  Lf 

-26.2886 

Rib_Rt 

-80.8540 

SpineTop 

-12.9312 

SpineBot 

-8.8C^  9 

spine_bb 

24.3572 

sternum 

-106.6885 

*rt_shold 

0.2868 

rneckT 

24.9890 

rneckB 

25.7339 

rl 

3.1623 

r2 

4.0824 

r3 

24.2384 

r4 

21.3020 

r5 

-13.3797 

r6 

-14.3051 

r7 

4.4502 

r8 

3.7172 

cl 

91.7840 

c2 

92.0813 

c3 

109.8955 

c4 

108.4676 

c5 

71.8336 

c6 

71.4438 

c7 

89.8598 

c8 

89.0715 

11 

77.6038 

12 

78.9127 

13 

97.4861 

14 

95.9944 

15 

57.6219 

16 

56.4894 

17 

76.4972 

18 

75.3420 

******** 

RtEyRtSh 

-838.200 

Origin 

-142.4749 

Rib  Lf 

-87.0137 

Rib  Rt 

-136.8364 

80.4776 

114.9166 

102.1329 

75.3767 

81.9221 

115.1035 

99.9733 

74.8475 

80.1389 

111.1259 

105.0697 

76.7790 

78.3935 

107.1388 

102.7052 

75.4077 

76.1117 

104.6938 

1.000  1.000 
6.5021 
9.9762 
4.0678 
16.8226 
7.9518 
24.5835 
-67.4695 
-88.6234 
52.5166 
-15.3130 
113.1687 
81.5898 
81.0082 
109.3849 
110.5201 
79.7559 
79.0529 
108.2719 
107.9168 
83.0785 
80.2257 
105.6101 
105.9312 
80.9328 
78.4445 
103.7850 
121.6977 
90.3949 
89.3339 
119.0610 
118.6686 
88.7575 
86.8266 
116.3782 

l.OGO  1.000 
8.4053 
7.6897 
2.5626 


Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Phci  0  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 
Photo  RtEyLfSh 


Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 
Photo  LfEyRtSh 


Photo  RtEyRtSh 
Photo  RtEyRtSh 
Photo  RtEyRtSh 
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SpineTop 

-74.6417 

15.0848 

Photo 

RtEyRtSh 

SpineBot 

-63.9205 

7.1271 

Photo 

RtEyRtSh 

spine__bb 

-26.3823 

24.0121 

Photo 

RtEyRtSh 

sternum 

-164.8196 

-68.0076 

Photo 

RtEyRtSh 

*rt_shold 

-38.0261 

-88.0801 

Photo 

RtEyRtSh 

IneckT 

174.8515 

68.8762 

Photo 

RtEyRtSh 

IneckB 

172.3995 

-14.2002 

Photo 

RtEyRtSh 

rneckT 

-14.3094 

52.7858 

Photo 

RtEyRtSh 

rneckB 

-13.5676 

-15.1412 

Photo 

RtEyRtSh 

rl 

-46.0271 

111.9888 

Photo 

RtEyRtSh 

r2 

-44.7371 

80.9632 

Photo 

RtEyRtSh 

r3 

-23.6062 

79.9656 

Photo 

RtEyRtSh 

r4 

-26.7760 

108.6349 

Photo 

RtEyRtSh 

r5 

-61.3325 

109.3273 

Photo 

RtEyRtSh 

r6 

-61.5246 

78.1450 

Photo 

RtEyRtSh 

rl 

-42.1077 

77.8838 

Photo 

RtEyRtSh 

rS 

-43.3173 

107.3571 

Photo 

RtEyRtSh 

cl 

43.2465 

107.2244 

Photo 

RtEyRtSh 

c2 

43.6043 

82.0303 

Photo 

RtEyRtSh 

c3 

62.6235 

79.8974 

Photo 

RtEyRtSh 

c4 

60.9998 

105.4642 

Photo 

RtEyRtSh 

c5 

24.1418 

105.2303 

Photo 

RtEyRtSh 

c6 

24.2777 

80.3777 

Photo 

RtEyRtSh 

cl 

43.1476 

77.7396 

Photo 

RtEyRtSh 

c8 

42.4845 

102.9435 

Photo 

RtEyRtSh 

11 

23.6428 

121.1788 

Photo 

RtEyRtSh 

12 

25.3629 

90.4545 

Photo 

RtEyRtSh 

13 

44.9857 

89.1972 

Photo 

RtEyRtSh 

14 

43.1961 

118.5550 

Photo 

RtEyRtSh 

15 

4.9370 

118.6117 

Photo 

RtEyRtSh 

16 

4.6803 

88.3057 

Photo 

RtEyRtSh 

17 

25.4536 

86.6072 

Photo 

RtEyRtSh 

18 

******** 

23.7276 

115.3987 

Photo 

RtEyRtSh 
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Head  Anthropometry  Prep  Printed  Output 


Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  1 
Date:  08/05/92 


Calibrated  Fiducial  Coordinates  of  Frame 


#1 


Fid 

1 

2 

3 

4 


X 

18.113 

18.105 

“18.120 

“18.105 


Y 

“12.126 

12.126 

12.131 

“12.126 


Calibrated  Focal  Length  =  “bi.003  mm.  Xoff=  -0.005  mm.  Yoff=  -0.022 


Lens  Distortion 
Radial  Parameters 

K0=+0.19243120D“03  K1=“0 . 28396730D-05  K2=+0 . 19404160D-07 

K3=“0.47157530D“10 


Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 

Fiducial  Measurements  of  Frame 


ID 

Measured 

X 

Y 

1 

14.468 

4.869 

2 

14.617 

11.777 

3 

4.328 

11.964 

4 

4.146 

5.124 

Parameter  Residuals  of  the 

Fiducial  Coordinates 

Fid 

X 

Y 

1 

0.000 

0.000 

2 

0.000 

0.000 

3 

0.000 

0.000 

4 

0.000 

0.000 

Rms 

0.000 

0.000 

Rms (check) 

0.047 

0.071 

Transformation  Parameters  Are: 

3.528078  -0.086591  -32.3087  0.000957  -0.000547 

0.075706  3.542118  -30.6039 


Page  2 
Date:  08/05/92 

#1 
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Naval  BioDynamics  Laboratory  PREP  Page  3 

Head  Anthropometry  for  HRV  #  00253  Date:  08/05/92 


Plate  Coordinates  for  Frame  1 


ID 

Control : 

a 

j 

k 

rtcl 

rtc2 

rtc3 

rtc4 

rtc5 

rtc6 

Targets: 

earl-r 

ear2“r 

ear3-r 

ear4-r 

mrcl 

mrc2 

mrc3 

mrc4 

mrc5 

mrc6 

mccl 

mcc2 

mcc3 

mcc4 

mcc5 


Measured 
X  Y 


5.272 

10.869 

8.747 

11.635 

8.391 

8.316 

7.900 

5.947 

7.229 

5.924 

7.150 

6.242 

7.808 

6.262 

7.853 

5.354 

7.195 

5.332 

10.607 

7.388 

10.491 

7.619 

10.382 

7.843 

10.263 

8.067 

11.455 

7.861 

11.221 

7.963 

11.150 

8.075 

11.344 

7.971 

11.314 

7-632 

11.096 

7.739 

11.668 

8.567 

11.457 

8.685 

11.367 

8.774 

11.571 

8.686 

11-533 

8.351 

Adjusted 
X  Y 


-14.656 

8.323 

-2.446 

11.271 

-3.408 

-0.489 

-4.926 

-8.881 

-7.286 

-9.018 

-7.593 

-7.904 

-5.278 

-7.779 

-5.038 

-10.973 

-7.352 

-11.107 

4.452 

-3.588 

4.027 

-2.784 

3.626 

-2.004 

3.190 

-1.224 

7.381 

-1.858 

6.554 

-1.517 

6.296 

-1.128 

6.984 

-1.479 

6.907 

-2.674 

6.135 

-2.315 

8.068 

0.643 

7.321 

1.043 

6.998 

1.349 

7.719 

1.055 

7.614 

-0.128 

Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  4 
Date:  08/05/92 


Calibrated  Fiducial  Coordinates  of  Frame  #2 


Fid  X  Y 

1  18.116  -12.132 

2  18.119  12.136 

3  -18.126  12.139 

4  -18.112  -12.132 


Calibrated  Focal  Length  =  -55.003  mm.  Xoff=  +0.027  mm.  Yoff=  +0.088  mm. 


Lens  Distortion 


Radial  Parameters 

K0=+0. 64679230D-03  Kl=-0 . 13013980D-04  K2=+0 . 76994240D-07 

K3=-0 . 14139510D-09 
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Naval  BioDynamics  Laboratory  PREP  Page  5 

Head  Anthropometry  for  HRV  #  00253  Date:  08/05/92 


Fiducial  Measurements  of  F:ame 


#2 


ID  Measured 


X  y 

1  14.584  4.916 

2  14.637  11.765 

3  4.488  11.838 

4  4.260  5.003 


8-Parameter  Residuals  of  the  Fiducial  Coordinates 


Fid  X  Y 

1  0.000  0.000 

2  0.000  0.000 

3  0.000  0.000 

4  0.000  0.000 

Rms  0.000  0.000 

Rms(check)  0.193  0.076 


Transformation  Parameters  Are; 

3.470361  -0.072014  -32.3217  0.000165  -0.002513 

0.026816  3.477392  -29.4981 


Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  6 
Date:  08/05/92 


Plate  Coordinates  for  Frame  2 


Control: 


Targets: 


ID 


Measured  Ad j  usted 

X  Y  X  Y 


a 

6.106 

10.643 

-12.239 

7.790 

b 

6.999 

10.754 

-9.067 

8.212 

c 

6.227 

7.958 

-11.529 

-1.778 

d 

7,053 

8.318 

-8.642 

-0.480 

j 

13.249 

10.696 

13.186 

8.167 

rtc2 

6.568 

6.787 

-10.206 

-5.901 

rtc2 

6.148 

6.883 

-11.698 

-5.575 

rtc3 

6.s72 

7.050 

-10.571 

-4.978 

rtc4 

6.878 

6.946 

-9.128 

-5.333 

rtc5 

6.598 

6.307 

-10.053 

-7.588 

rtc6 

6.171 

6.402 

-11.568 

-7.266 

rtc8 

6.890 

6.465 

-9.039 

-7.024 

cenl 

8.116 

9.802 

-5.006 

4.  £:  72 

cen3 

8.045 

9.912 

-5.268 

5.2.;4 

cen4 

8.359 

9.860 

-4.147 

5.046 

cen5 

8.124 

388 

-4.942 

3.355 

cen8 

8.349 

161 

-4.150 

3.622 

lfc5 

8.813 

97 

-2.513 

4.120 

lfc6 

8.508 

o50 

-3.600 

4.300 

ron 

10.424 

8.389 

3.288 

-0.136 

35 


Naval  Biodynamics  Laboratory  Software  Documentation 


earl-r 

9.135 

7.384 

-1.199 

-3.728 

ear2-r 

9.211 

7.569 

-0.945 

-3.073 

ear3-r 

9.293 

7.762 

-0.669 

-2.388 

ear4-r 

9.366 

7.952 

-0.426 

-1.714 

mrcl 

10.887 

7.458 

4.982 

-3.417 

mrc2 

10.661 

7.592 

4.176 

-2.950 

mrc3 

10.780 

7.682 

4.591 

-2.629 

mrc5 

10.778 

7.251 

4.610 

-4.150 

mrc6 

10.570 

7.411 

3.866 

-3.592 

mrc8 

10.885 

7.314 

4.984 

-3.925 

mccl 

11.335 

8.064 

6.529 

-1.262 

mcc2 

11.119 

8.197 

5.758 

-0.797 

mcc3 

11.224 

8.297 

6.124 

-0.440 

mcc4 

11.422 

8.149 

6.832 

-0.959 

mcc5 

11.228 

7.874 

6.162 

-1.938 

Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  7 
Date:  08/05/92 


Calibrated  Fiducial  Coordinates  of  Frame  #3 


Fid  X 

1  18.108 

2  18.110 

3  -18.117 

4  -18.107 


Y 

-12.122 

12.124 

12.128 

-12.122 


Calibrated  Focal  Length  =  —55.005  mm.  Xoff=  +0.037  mm.  Yoff—  +0.088  mm. 


Lens  Distortion 
Radial  Parameters 

K0=+0. 59205760D-03  Kl=-0 . 11202800D-04  K2=+0 . 68771330D-07 

K3=-0.13585810D-09 


Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  8 
Date:  08/05/92 


Fiducial  Measurements  of  Frame  #3 


ID  Measured 


X  Y 

1  14.050  5.175 

2  14.005  12.034 

3  3.751  12.032 

4  3.735  5.174 


8-Parameter  Residuals  of  the  Fiducial  Coordinates 


Fid 


X 


Y 
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1 

0.000 

0.000 

2 

0.000 

0.000 

3 

0.000 

0.000 

4 

0.000 

0.000 

Rms 

0.000 

0.000 

Rms (check) 

0.062 

0.033 

Transformation  Parameters  Are: 

3.495096  0.006482  -31.1107  0.000017  -0.000903 

-0.000593  3.508391  -30.2153 
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Plate  Coordinates  for  Frame  3 


ID 

Control: 

a 

b 

c 

g 

h 

rtcl 

rtc2 

rtc3 

rtc4 

rtc5 

rtc6 

rtc8 

cenl 

Ifcl 

lfc2 

lfc3 

lfc4 

lfc5 

lfc6 

lfc8 

Targets: 

ron 

Ion 

earl-r 

ear2“r 

ear3-r 

ear4“r 

earl-1 

ear2-l 

ear3-l 

ear4-l 

mrcl 

mrc2 

mrc5 

mrc6 


Measured 
X  y 


8.308 

10.640 

9.649 

10.596 

8.229 

7.972 

4.971 

10.697 

10.930 

10.803 

6.891 

6.921 

6.810 

7.107 

7.280 

7.147 

7.388 

6.963 

6.891 

6.452 

6.774 

6.624 

7.379 

6.465 

10.718 

9.405 

12.009 

9.436 

11.820 

9.541 

12.195 

9.550 

12.418 

9.438 

11.974 

9.000 

11.779 

9.085 

12.378 

9.000 

10.367 

7.535 

11.091 

7.593 

8.442 

6.876 

8.680 

7.032 

8.922 

7.201 

9.159 

7.365 

12.246 

7.044 

12.002 

7.183 

11.758 

7.308 

11.520 

7.440 

10.385 

6.342 

10.280 

6.565 

10.322 

6.138 

10.201 

6.353 

Adjusted 

X  y 


-2.061 

7.090 

2.671 

6.933 

-2.352 

-2.356 

-13.836 

7.294 

7.193 

7.666 

-7.062 

-6.063 

-7.347 

-5.407 

-5.694 

-5.267 

-5.314 

-5.915 

-7.061 

-7.715 

-7.473 

-7.109 

-5.346 

-7.670 

6.429 

2.711 

10.978 

2.819 

10.313 

3.191 

11.635 

3.223 

12.419 

2.826 

10.847 

1.276 

10.162 

1.577 

12.270 

1.276 

5.171 

-3.900 

7.718 

-3.695 

-1.607 

-6.223 

-0.769 

-5.674 

0.083 

-5.078 

0.918 

-4.500 

11.772 

-5.632 

10.916 

-5.141 

10.060 

-4.700 

9.225 

-4.235 

5.219 

-8.104 

4.853 

-7.319 

4.996 

-8.822 

4.573 

-8.065 
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mrc8 

10.600 

6.158 

5.973 

-8.752 

mccl 

11.018 

6.896 

7.452 

-6.153 

mcc2 

10.888 

7.138 

6.998 

-5.300 

mcc3 

11.182 

7.172 

8.032 

-5.180 

mcc4 

11.293 

6.925 

8.419 

-6.051 

mcc5 

10.956 

6.684 

7.231 

-6.900 

mcc6 

10.823 

6.922 

6.766 

-6.061 

mcc8 

11.223 

6.721 

8.170 

-6.769 

mlc3 

11.456 

6.726 

8.989 

-6.752 

mlc4 

11.567 

6.499 

9.376 

-7.551 

mlc5 

11.234 

6.242 

8.202 

-8.456 

mlc8 

11.500 

6.289 

9.137 

-8.291 
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Calibrated  Fiducial  Coordinates  of  Frame  #4 


Fid  X 

1  18.102 

2  18.110 

3  -18.109 

4  -18.124 


Y 

-12.127 

12.118 

12.132 

-12.127 


Calibrated  Focal  Length  =  —55.004  mm.  Xoff=  —0.056  mm.  Yoff=  +0.132  mm. 


Lens  Distortion 
Radial  Parameters 

K0=+0.72422290D-03  Kl=-0 . 13957730D-04  K2=+0 . 81529700D-07 

K3=-0 . 14888030D-09 


Naval  BioDynamics  Laboratory  PREP  Page  11 

Head  Anthropometry  for  HRV  #  00253  Date:  08/05/92 

Fiducial  Measurements  of  Frame  #4 


ID  Measured 


X  Y 

1  14.080  5.698 

2  14.062  12.516 

3  3.849  12.604 

4  3.790  5.714 


8-Parameter  Residuals  of  the  Fiducial  Coordinates 


Fid  X 

1  0.000 

2  0.000 

3  0.000 


Y 

0.000 

0.000 

0.000 
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4  0.000  0.000 

Rms  0.000  0.000 

Rms ( check)  0 . 069  0 . 062 

Transformation  Parameters  Are: 

3.469922  -0.008782  -31.0518  -0.000952  -0.001033 

0.017154  3.474843  -31.9335 
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Head  Anthropometry  for  HRV  #  00253  Date:  08/05/92 

Plate  Coordinates  for  Frame  4 


ID 

Control : 

a 

b 

d 

f 

g 

h 

rtcl 

rtc2 

rtc3 

rtc4 

rtc5 

rtc8 

cenl 

cen2 

cen3 

cen4 

cen5 

cen8 

Ifcl 

lfc2 

lfc3 

lfc4 

lfc5 

lfc8 

Targets: 

ron 

Ion 

earl-r 

ear2-r 

ear3-r 

ear4-r 

earl-1 

ear2-l 

ear3-l 

ear4-l 

mrcl 

mrc2 

mrc5 

mrc8 

mccl 


Measured 
X  y 


7.756 

11.858 

9.236 

11.789 

9.252 

9.104 

11.288 

6.956 

6.416 

11.952 

12.793 

12.006 

5.687 

8.169 

5.827 

8.368 

6.311 

8.362 

6.205 

8.169 

5.739 

7.680 

6.238 

7.679 

10.165 

10.474 

10.180 

10.605 

10.679 

10.590 

10.675 

10.474 

10.149 

9.978 

10.660 

9.961 

11.720 

10.457 

11.685 

10.567 

12.179 

10.572 

12.245 

10.443 

11.701 

9.959 

12.218 

9.945 

7.549 

8.508 

8.415 

8.504 

5.942 

7.989 

6.214 

8.143 

6.479 

8.278 

6.754 

8.424 

10.218 

7.780 

9.953 

7.954 

9.693 

8.117 

9.434 

8.291 

7.225 

7.253 

7.252 

7.500 

7.260 

7.044 

7.576 

7.038 

7.645 

7.781 

Adjusted 


X 

y 

-4.272 

9.460 

0.968 

9.255 

1.047 

-0.275 

8.258 

-7.839 

-9.005 

9.758 

13.622 

10.124 

-11.494 

-3.630 

-11.007 

-2.928 

-9.308 

-2.942 

-9.676 

-3.623 

-11.301 

-5.350 

-9.551 

-5.347 

4.272 

4.603 

4.324 

5.068 

6.095 

5.026 

6.081 

4.613 

4.218 

2.841 

6.030 

2.791 

9.793 

4.575 

9.669 

4.966 

11.427 

4.995 

11.662 

4.537 

9.725 

2.804 

11.564 

2.765 

-4.958 

-2.409 

-1.905 

-2.411 

-10.595 

-4.260 

-9.644 

-3.715 

-8.716 

-3.235 

-7.753 

-2.717 

4.471 

-4.943 

3.533 

-4.332 

2.613 

-3.760 

1.696 

-3.148 

-6.078 

-6.835 

-5.987 

-5.966 

-5.951 

-7.570 

-4.841 

-7.588 

-4.609 

-4.972 
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mcc2 

7.658 

8.033 

-4.567 

-4.084 

mcc3 

8.003 

8.046 

-3.352 

-4.033 

mcc4 

7.985 

7.789 

-3.412 

-4.940 

mcc5 

7.687 

7.561 

-4.458 

-5.746 

mcc7 

8.042 

7.821 

-3.212 

-4.826 

mcc8 

8.027 

7.568 

-3.261 

-5.718 

mlcl 

8.281 

7.251 

-2.363 

-6.832 

mlc3 

8.621 

7.531 

-1.168 

-5.842 

mlc4 

8.610 

7.274 

-1.204 

-6.747 

mlc5 

8.314 

7.056 

-2.244 

-7.518 

mlc7 

8.662 

7.309 

-1.021 

-6.623 

mlcS 

8.636 

7.066 

-1.110 

-7.479 

Naval  BioDynamics  Laboratory  PREP 
Head  Anthropometry  for  HRV  #  00253 


Page  13 
Date;  08/05/92 


Calibrated  Fiducial  Coordinates  of  Frame  #5 


Fid  X  Y 

1  18.130  -12.125 

2  18.123  12.136 

3  -18.118  12.117 

4  -18.106  -12.125 


Calibrated  Focal  Length  =  -55.002  mm.  Xoff=  +0.013  mm.  Yoff-  +0.122  mm. 


Lens  Distortion 
Radial  Parameters 

K0=+0.31260690D-03  Kl=-0 . 76500290D-05  K2=+0. 56783210D-07 

K3=-0.12129480D-09 
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Fiducial  Measurements  of  Frame 


#5 


ID  Measured 


X  Y 

1  14.162  5.077 

2  14.136  11.949 

3  3.842  11.871 

4  3.869  5.051 


8-Parameter  Residuals  of  the  Fiducial  Coordinates 

Fid  X  Y 

1  0.000  0.000 
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Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


2 

0.000 

0.000 

3 

0.000 

0.000 

4 

0.000 

0.000 

Rms 

0.000 

0.000 

Rms( check) 

0.037 

0.067 

Transformation  Parameters  Are: 

3.541999  0.012342  -31.9213  0.000664  0.000018 

-0.017068  3.564324  -30.0959 
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Plate  Coordinates  for  Frame  5 


ID 

Control : 

b 

c 

d 

f 

cenl 

cen2 

cen3 

cen4 

cen5 

cen8 

Ifcl 

lfc2 

lfc3 

lfc4 

lfc5 

lfc7 

lfc8 

Targets: 

Ion 

earl-r 

ear2-r 

earl-1 

ear2-l 

ear3-l 

ear4-l 

mccl 

mcc2 

mcc3 

mcc4 

mcc5 

mcc7 

mcc8 

mlcl 

mlc2 

mlc3 

mlc4 


Measured 
X  y 


10.896 

11.654 

9.645 

9.043 

10.777 

8.689 

10.960 

5.820 

11.029 

10.034 

11.402 

10.146 

11.867 

10.024 

11.482 

9.913 

10.991 

9.488 

11.448 

9.340 

12.479 

9.641 

12.852 

9.773 

13.375 

9.641 

13.006 

9.508 

12.426 

9.059 

13.339 

9.041 

12.949 

8.900 

6.377 

8.628 

5.552 

8.666 

5.740 

8.731 

8.036 

7.346 

7.932 

7.599 

7.817 

7.844 

7.704 

8.0B  1 

5.056 

8.2i3 

5.284 

8.425 

5.480 

8.360 

5.246 

8.143 

5.205 

7.986 

5.624 

8.132 

5.401 

7.905 

5.729 

7.522 

5.951 

7.737 

6.141 

7.652 

5.915 

7.441 

Adjusted 
X  Y 


6.753 

11.052 

2.325 

1.837 

6.300 

0.564 

6.907 

-9.591 

7.200 

5.318 

8.511 

5.706 

10.141 

5.265 

8.789 

4.880 

7.060 

3.387 

8.662 

2.854 

12.282 

3.899 

13.591 

4.358 

15.420 

3.881 

14.127 

3.419 

12.089 

1.843 

15.287 

1.763 

13.920 

1.272 

-9.200 

0.424 

-12.116 

0.573 

-11.450 

0.801 

-3.362 

-4.150 

-3.726 

-3.252 

-4.128 

-2.381 

-4.524 

-1.542 

-13.877 

-1.027 

-13.067 

-0.278 

-12.375 

-0.512 

-13.205 

-1.279 

-13.353 

-1.836 

-11.868 

-1.324 

-12.660 

-2.127 

-11.504 

-3.492 

-10.717 

-2.732 

-10.046 

-3.036 

-10.848 

-3.782 
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mlc5 

mlc7 

mlc8 


5,878 

6.295 

6.065 


7.290 

7.441 

7.232 


-10.980 

-9,505 

-10.320 


-4.317 

-3.787 

-4.526 
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Calibrated  Fiducial  Coordinates  of  Frame 


X 

18.105 

18.111 

-18.134 

-18.105 


Y 

-12.122 

12.127 

12.141 

-12.122 


Calibrated  Focal  Length  =  —55.005  mm,  Xoff=  +0.045  mm.  Yoff=  +0.036  mm 


Lens  Distortion 
Radial  Parameters 

K0=+0.72083470D-03  Kl=-0 . 13284430D-04  K2=+0 . 79422490D-07 

K3=-0.15412240D-09 
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Fiducial  Measurements  of  Frame 


Measured 

X 

13.479 

13.487 

3.246 

3.209 


Y 

5.731 

12.568 

12,600 

5.750 


8-Parameter  Residuals  of  the  Fiducial  Coordinates 


Rms 

Rms (check) 


X 

0.000 

0.000 

0.000 

0.000 

0.000 

0.041 


Y 

0.000 

0.000 

0.000 

0.000 

0.000 

0,031 


Transformation  Parameters  Are: 
3.510959  -0.013339  -29,2288  -0.000120 

0,008223  3.523136  -32.3652 


-0.000549 


42 


Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


Naval  BioDynamics  Laboratory  PREP 

Head  Anthropometry  for  HRV  #  00253  Date: 


Plate  Coordinates  for  Frame  6 


ID 

Control: 

b 

rtcl 

rtc2 

rtc3 

rtc4 

rtc7 

rtc8 

cenl 

cen2 

cen3 

cen4 

cenS 

Ifcl 

lfc2 

lfc3 

lfc4 

lfc7 

lfc8 

Targets : 

earl“l 

ear2"l 

ear3”l 

ear4-l 

mccl 

mcc2 

mcc3 

mcc4 

mcc8 

mlcl 

mlc3 

mlc4 

mlc7 

mlc8 


Measured 
X  Y 


13,038 

11.118 

9.827 

8.701 

10.437 

8.651 

10.409 

8.388 

9.790 

8.438 

10.374 

7.818 

9.805 

7.870 

11.320 

8.752 

12.234 

8.677 

12.268 

8.272 

11.303 

8.351 

11.230 

7.524 

11.232 

7.462 

12.321 

7.348 

12.344 

6.787 

11.189 

6.901 

12.218 

5.845 

11.105 

5.958 

5.411 

7.091 

5.617 

7.410 

5.844 

7.720 

6.036 

8.018 

4.382 

9.228 

4.661 

9.350 

4.576 

9.210 

4.255 

9.093 

4.422 

8.786 

4.577 

8.270 

4.767 

8.247 

4.464 

8.125 

4.943 

7.941 

4.630 

7.807 

Adjusted 
X  Y 


16.473 

6.927 

5.145 

-1.676 

7.300 

-1.848 

7.204 

-2.780 

5.017 

-2.608 

7.085 

-4.799 

5.076 

-4.620 

10.418 

-1.483 

13.649 

-1.741 

13.772 

-3.176 

10.361 

-2.904 

10.110 

-5.833 

10.117 

-6.052 

13.964 

-6.447 

14.047 

-8.431 

9.970 

-8.037 

13.602 

-11.757 

9.681 

-11.371 

-10.418 

-7.408 

-9.697 

-6.278 

-8.903 

-5.180 

-8.231 

-4.124 

-14.091 

0.147 

-13.108 

0.582 

-13.406 

0.085 

-14.536 

-0.332 

-13.940 

-1.418 

-13.382 

-3.244 

-12.712 

-3.323 

-13.778 

-3.758 

-12.085 

-4.405 

-13.186 

-4.882 

Page  18 
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Head  Anthropometry  Image  Data  File 


5.87500 

5, 

81250 

#1 

“55.003 

0.055 

0.055 

#1-580 

a 

“14.6561 

8.3229 

Photo 

#1 

j 

“2.4462 

11.2708 

Photo 

#1 

k 

“3.4083 

“0.4887 

Photo 

#1 

rtcl 

“4.9258 

“8.8809 

Photo 

#1 

rtc2 

“7.2857 

-9.0182 

Photo 

#1 

rtc3 

-7.5927 

“7.9039 

Photo 

#1 

rtc4 

“5.2776 

“7.7789 

Photo 

#1 

rtc5 

“5.0384 

“10.9729 

Photo 

#1 

rtc6 

“7.3519 

“11.1068 

Photo 

#1 

earl-r 

4.4523 

“3.5880 

Photo 

#1 

ear2-r 

4.0266 

-2.7841 

Photo 

#1 

ear3-r 

3.6258 

-2.0039 

Photo 

#1 

ear4-r 

3.1898 

“1.2241 

Photo 

#1 

mrcl 

7.3812 

-1.8577 

Photo 

#1 

mrc2 

6.5542 

-1.5168 

Photo 

#1 

mrc3 

6.2965 

“1.1281 

Photo 

#1 

mrc4 

6.9839 

“1.4792 

Photo 

#1 

mrc5 

6.9068 

“2.6742 

Photo 

#1 

mrc6 

6.1352 

“2.3147 

Photo 

#1 

mccl 

8.0685 

0.6428 

Photo 

#1 

mcc2 

7.3207 

1.0425 

Photo 

#1 

mcc3 

6.9984 

1.3493 

Photo 

#1 

mcc4 

7.7194 

1.0545 

Photo 

#1 

mcc5 

7.6139 

“0.1276 

Photo 

#1 

******** 

#2 

“55.003 

0.055 

0.055 

#2-736 

*  a 

“12.2394 

7.7903 

Photo 

#2 

b 

-9.0674 

8.2118 

Photo 

#2 

c 

“11.5294 

“1.7780 

Photo 

#2 

d 

“8.6416 

“0.4798 

Photo 

#2 

*  j 

13.1862 

8.1672 

Photo 

#2 

rtcl 

“10.2061 

“5.9014 

Photo 

#2 

rtc2 

“11.6981 

-5.5755 

Photo 

#2 

rtc3 

“10.5711 

“4.9781 

Photo 

#2 

rtc4 

“9.1278 

“5.3331 

Photo 

#2 

*  rtc5 

“10.0529 

“7.5876 

Photo 

#2 

rtc6 

“11.5678 

“7.2664 

Photo 

#2 

rtc8 

“9.0391 

“7.0244 

Photo 

#2 

cenl 

-5.0059 

4.8324 

Photo 

#2 

cen3 

“5.2677 

5.2235 

Photo 

#2 

cen4 

“4.1473 

5.0464 

Photo 

#2 

cen5 

“4.9422 

3.3550 

Photo 

#2 

cen8 

“4.1495 

3.6216 

Photo 

#2 

lfc5 

-2.5127 

4.1197 

Photo 

#2 

lfc6 

“3.6005 

4.3004 

Photo 

#2 

ron 

3.2881 

“0.1357 

Photo 

#2 

earl-r 

“1.1992 

-3.7278 

Photo 

#2 

ear2-r 

-0.9448 

“3.0725 

Photo 

#2 

ear3-r 

-0.6695 

“2.3880 

Photo 

#2 

ear4-r 

“0.4255 

-1.7137 

Photo 

#2 

mrcl 

4.9823 

-3.4171 

Photo 

#2 

mrc2 

4.1764 

“2.9505 

Photo 

#2 

mrc3 

4.5911 

“2.6291 

Photo 

#2 
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mrc5 

4.6101 

“4.1503 

Photo 

#2 

mrc6 

3.8664 

“3.5920 

Photo 

#2 

mrc8 

4.9838 

“3.9251 

Photo 

#2 

mccl 

6.5291 

“1.2623 

Photo 

#2 

mcc2 

5.7582 

“0.7973 

Photo 

#2 

mcc3 

6.1236 

“0.4400 

Photo 

#2 

mcc4 

6.8317 

“0.9589 

Photo 

#2 

mcc5 

6.1619 

“1.9376 

Photo 

#2 

******** 

#3 

“55.005 

0.055 

0.055 

#3-674 

a 

“2.0609 

7.0902 

Photo 

#3 

b 

2.6711 

6.9331 

Photo 

#3 

c 

“2.3523 

“2.3564 

Photo 

#3 

*  g 

“13.8361 

7.2936 

Photo 

#3 

*  h 

7.1930 

7.6657 

Photo 

#3 

rtcl 

“7.0615 

“6.0627 

Photo 

#3 

rtc2 

“7.3465 

“5.4070 

Photo 

#3 

rtc3 

“5.6936 

“5 .2666 

Photo 

#3 

rtc4 

“5.3140 

“5.9154 

Photo 

#3 

rtc5 

“7.0613 

“7.7149 

Photo 

#3 

rtc6 

“7.4727 

“7.1090 

Photo 

#3 

rtc8 

“5.3460 

“7.6696 

Photo 

#3 

cenl 

6.4287 

2.7106 

Photo 

#3 

Ifcl 

10.9777 

2.8190 

Photo 

#3 

lfc2 

10.3134 

3.1909 

Photo 

#3 

lfc3 

11.6352 

3.2225 

Photo 

#3 

lfc4 

12.4192 

2.8258 

Photo 

#3 

lfc5 

10.8473 

1.2760 

Photo 

#3 

lfc6 

10.1618 

1.5768 

Photo 

#3 

lfc8 

12.2705 

1.2757 

Photo 

#3 

ron 

5.1706 

“3.8999 

Photo 

#3 

Ion 

7.7181 

“3.6950 

Photo 

#3 

earl~r 

“1.6074 

“6.2233 

Photo 

#3 

ear2-r 

“0.7694 

“5.6737 

Photo 

#3 

ear3-r 

0.0830 

“5.0781 

Photo 

#3 

ear4“r 

0.9182 

“4.4998 

Photo 

#3 

earl“l 

11.7717 

“5.6316 

Photo 

#3 

ear2”-l 

10.9159 

“5.1414 

Photo 

#3 

ear3-l 

10.0597 

“4.7005 

Photo 

#3 

ear4-l 

9.2247 

“4.2348 

Photo 

#3 

mrcl 

5.2194 

“8.1040 

Photo 

#3 

mrc2 

4.8530 

“7.3189 

Photo 

#3 

mrcS 

4.9956 

“8.8219 

Photo 

#3 

mrc6 

4.5729 

“8.0653 

Photo 

#3 

mrc8 

5.9727 

“8.7516 

Photo 

#3 

mccl 

7.4515 

“6.1528 

Photo 

#3 

mcc2 

6.9978 

“5.2999 

Photo 

#3 

mcc3 

8.0320 

“5.1799 

Photo 

#3 

mcc4 

8.4187 

“6.0506 

Photo 

#3 

mcc5 

7.2306 

“6.8997 

Photo 

#3 

mcc6 

6.7663 

“6.0612 

Photo 

#3 

mcc8 

8.1697 

“6.7694 

Photo 

#3 

mlc3 

8.9888 

“6.7518 

Photo 

#3 

mlc4 

9.3756 

“7.5514 

'SrliZ.V.O 

#3 

mlc5 

.2016 

“8.4561 

Phcuo 

#3 

mlc8 

.1370 

“8.2908 

Photo 

#3 

******** 

#4 

“55.004 

0.055 

0.055 

#4-623 

a 

“4.2721 

9.4603 

Photo 

#4 
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b 

0.9680 

9.2549 

Photo 

#4 

d 

1.0467 

-0.2746 

Photo 

#4 

f 

8.2583 

-7.8387 

Photo 

#4 

*  g 

-9.0048 

9.7582 

Photo 

#4 

*  h 

13.6216 

10.1241 

Photo 

#4 

rtcl 

-11.4936 

-3.6303 

Photo 

#4 

rtc2 

-11.0066 

-2.9276 

Photo 

#4 

rtc3 

-9.3077 

-2.9418 

Photo 

#4 

rtc4 

-9.6761 

-3.6231 

Photo 

#4 

rtc5 

-11.3011 

-5.3500 

Photo 

#4 

rtc8 

-9.5508 

-5.3473 

Photo 

#4 

cenl 

4.2716 

4.6027 

Photo 

#4 

cen2 

4.3240 

5.0684 

Photo 

#4 

cen3 

6.0947 

5.0258 

Photo 

#4 

cen4 

6.0809 

4.6134 

Photo 

#4 

cen5 

4.2176 

2.8411 

Photo 

#4 

cen8 

6-0296 

2.7907 

Photo 

#4 

Ifcl 

9.7933 

4.5752 

Photo 

#4 

lfc2 

9.6689 

4.9658 

Photo 

#4 

lfc3 

11.4271 

4.9947 

Photo 

#4 

lfc4 

11.6617 

4.5369 

Photo 

#4 

lfc5 

9.7253 

2.8040 

Photo 

#4 

lfc8 

11.5639 

2.7647 

Photo 

#4 

ron 

-4.9580 

-2.4093 

Photo 

#4 

Ion 

-1.9052 

-2.4108 

Photo 

#4 

earl-r 

-10.5954 

-4.2603 

Photo 

#4 

ear2“r 

-9.6440 

-3.7145 

Photo 

#4 

ear3-r 

-8.7163 

-3.2354 

Photo 

#4 

ear4-r 

-7.7529 

-2.7170 

Photo 

#4 

earl-1 

4.4710 

-4.9426 

Photo 

#4 

ear2-l 

3.5332 

-4.3317 

Photo 

#4 

ear3-l 

2.6131 

-3.7595 

Photo 

#4 

ear4-l 

1.6963 

-3.1484 

Photo 

#4 

mrcl 

-6.0777 

-6.8351 

Photo 

#4 

mrc2 

-5.9869 

-5.9658 

Photo 

#4 

mrc5 

-5.9513 

-7.5698 

Photo 

#4 

mrc8 

-4.8406 

-7.5879 

Photo 

#4 

mccl 

-4.6091 

-4.9719 

Photo 

#4 

mcc2 

-4.5671 

-4.0836 

Photo 

#4 

mcc3 

-3.3523 

-4.0334 

Photo 

#4 

mcc4 

-3.4122 

-4.9398 

Photo 

#4 

mcc5 

-4.4581 

-5.7464 

Photo 

#4 

mccl 

-3.2119 

-4.8263 

Photo 

#4 

mcc8 

-3.2613 

-5.7180 

Photo 

#4 

mlcl 

-2.3627 

-6.8317 

Photo 

#4 

mlc3 

-1.1677 

-5.8417 

Photo 

#4 

mlc4 

-1.2037 

-6.7473 

Photo 

#4 

mlc5 

-2.2441 

-7.5177 

Photo 

#4 

mlc7 

-1.0208 

-6.6234 

Photo 

#4 

mlc8 

-1.1099 

-7.4794 

Photo 

#4 

******** 

#5 

-55.002 

0.055 

0.055  #5-591 

b 

6.7533 

11.0523 

Photo 

#5 

c 

2.3252 

1.8373 

Photo 

#5 

d 

6.2996 

0.5637 

Photo 

#5 

f 

6.9070 

-9.5909 

Photo 

#5 

cenl 

7.2002 

5.3176 

Photo 

#5 

cen2 

8.5108 

5.7060 

Photo 

#5 

cen3 

10.1407 

5.2651 

Photo 

#5 

46 


Anthropometry  and  Initial  Conditions  Photo grammetric  Program 


cen4 

8.7887 

4.8803 

Photo 

#5 

cen5 

7.0604 

3.3868 

Photo 

#5 

cen8 

8.6625 

2.8544 

Photo 

#5 

Ifcl 

12.2821 

3.8990 

Photo 

#5 

lfc2 

13.5909 

4.3583 

Photo 

#5 

lfc3 

15.4201 

3.8815 

Photo 

#5 

lfc4 

14.1271 

3.4189 

Photo 

#5 

lfc5 

12.0891 

1.8428 

Photo 

#5 

lfc7 

15.2873 

1.7627 

Photo 

#5 

lfc8 

13.9201 

1.2715 

Photo 

#5 

Ion 

-9.2001 

0.4239 

Photo 

#5 

earl-r 

-12.1160 

0.5732 

Photo 

#5 

ear2“r 

-11.4502 

0.8006 

Photo 

#5 

earl-1 

-3.3622 

-4.1501 

Photo 

#5 

ear2-l 

-3.7259 

-3.2516 

Photo 

#5 

ear3-l 

-4.1284 

-2.3811 

Photo 

#5 

ear4-l 

-4.5240 

-1.5424 

Photo 

#5 

mccl 

-13.8771 

-1.0273 

Photo 

#5 

mcc2 

-13.0674 

-0.2781 

Photo 

#5 

mcc3 

-12.3746 

-0.5122 

Photo 

#5 

mcc4 

-13.2054 

-1.2790 

Photo 

#5 

mcc5 

-13.3525 

-1.8360 

Photo 

#5 

mcc7 

-11.8680 

-1.3241 

Photo 

#5 

mcc8 

-12.6599 

-2.1267 

Photo 

#5 

mlcl 

-11.5044 

-3.4916 

Photo 

#5 

mlc2 

-10.7166 

-2.7316 

Photo 

#5 

mlc3 

-10.0461 

-3.0362 

Photo 

#5 

mlc4 

-10.8477 

-3.7819 

Photo 

#5 

mlc5 

-10.9804 

-4.3174 

Photo 

#5 

mlc7 

-9.5046 

-3.7873 

Photo 

#5 

mlc8 

-10.3200 

-4.5259 

Photo 

#5 

******** 

#6 

-55.005 

0.055 

0.055  #6-806 

*  b 

16.4732 

6.9266 

Photo 

#6 

rtcl 

5.1453 

-1.6760 

Photo 

#6 

rtc2 

7.3002 

-1.8480 

Photo 

#6 

rtc3 

7.2036 

-2.7801 

Photo 

#6 

rtc4 

5.0172 

-2.6084 

Photo 

#6 

rtc7 

7.0849 

-4.7990 

Photo 

#6 

rtc8 

5.0756 

-4.6199 

Photo 

#6 

*  cenl 

10.4182 

-1.4826 

Photo 

#6 

cen2 

13.6490 

-1.7410 

Photo 

#6 

cen3 

13.7715 

-3.1759 

Photo 

#6 

cen4 

10.3611 

-2.9036 

Photo 

#6 

cen8 

10.1095 

-5.8326 

Photo 

#6 

*  Ifcl 

10.1170 

-6.0520 

Photo 

#6 

lfc2 

13.9637 

-6.4472 

Photo 

#6 

*  lfc3 

14.0469 

-8.4311 

Photo 

#6 

lfc4 

9.9697 

-6.0371 

Photo 

#6 

*  lfc7 

13.6024 

-11.7572 

Photo 

#6 

lfc8 

9.6807 

-11.3713 

Photo 

#6 

earl-1 

-10.4178 

-7.4077 

Photo 

#6 

ear2-l 

-9.6974 

-6.2782 

Photo 

#6 

ear3-l 

-8.9027 

-5.1801 

Photo 

#6 

ear4-l 

-8.2312 

-4.1243 

Photo 

#6 

mccl 

-14.0906 

0.1473 

Photo 

#6 

mcc2 

-13.1084 

0.5819 

Photo 

#6 

mcc3 

-13.4055 

0.0852 

Photo 

#6 

mcc4 

-14.5359 

-0.3320 

Photo 

#6 
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mcc8  -13.9401 

mlcl  -13 . 3825 

mlc3  -12.7118 

mlc4  -13.7781 

mlc7  -12.0847 

mlc8  -13.1860 

******** 


-1.4180 

-3.2436 

-3.3235 

-3.7577 

-4.4050 

-4.8815 


Photo 

#6 

Photo 

#6 

Photo 

#6 

Photo 

#6 

Photo 

#6 

Photo 

#6 
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Initial  Conditions  Image  Data  File 


#1 

-55.003 

a 

4.0733 

b 

3.9411 

c 

9.0001 

rtcl 

-3.6518 

rtc2 

-5.2639 

rtc3 

-5.7427 

rtc4 

-4.0975 

rtc5 

-3.6487 

rtc6 

-5.2854 

* 

cenl 

-7.9262 

cen2 

-9.1381 

* 

cen3 

-9.4991 

* 

cen5 

-7.8691 

cen6 

-9.1218 

* 

cen7 

-8.9064 

* 

Ifcl 

-10.4299 

★ 

lfc2 

-9.2076 

* 

lfc4 

-10.0573 

★ 

lfc6 

-10.0467 

lfc7 

-10.3618 

m_rl 

2.9145 

m_r4 

2.6727 

m_tl 

3.4948 

m  t4 

3.2826 

m_bl 

3.8175 

m_b4 

3.5655 

mtarOl 

2.5248 

mtar03 

3.1365 

mtar06 

2.5579 

mtar07 

3.1597 

mtarll 

3.4749 

******** 

#2 

-55.003 

a 

-2.0814 

b 

-1.9430 

c 

6.1033 

rtcl 

-10.1376 

rtc2 

-11.4042 

rtc3 

-10.6560 

rtc4 

-9.3077 

rtc5 

-9.9028 

rtc6 

-11.2055 

rtc8 

-9.1322 

m_rl 

3.4502 

m_r4 

3.6971 

m_tl 

5.5357 

m_t4 

5.7714 

m_bl 

5.9624 

m_b4 

6.1916 

mtarOl 

3.0404 

mtar03 

5.1160 

mtar06 

3.3248 

mtar07 

5.3872 

mtar09 

5.5177 

0.025  0.025 

--5.9268 
-7.5439 
-9.5576 
-6.6810 
-7.0111 
-6.0392 
-5.8006 
-8.0633 
-8.3587 
4.3394 
4.2633 
4.7138 
3.1781 
3.0239 
5.6385 
5.9394 
6.0824 
4.3687 
4.3687 
4.7877 
2.1257 
2.4417 
4.3627 
4.5451 
3.0954 
3.3903 
1.9018 
4.1496 
2.3742 
4.5657 
3.3476 

0.025  0.025 

-5.0775 
-6.7281 
-11.7813 
-2.8134 
-2.6223 
-1.7977 
-2.1061 
-4.1039 
-3.8221 
-3.3717 
2.3454 
2.6581 
4.3027 
4.5703 
2.9070 
3.1990 
2.2183 
4.2004 
2.6526 
4.6529 
4.1245 


#1-580 


Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

Photo 

#1 

■736 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 

Photo 

#2 
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mtarll 

5.7814 

3.1909 

Photo 

#2 

******** 

#3 

-55.005 

0.025 

0.025 

#3-674 

a 

-11.1395 

-3.1387 

Photo 

#3 

b 

-10.9820 

-4.7801 

Photo 

#3 

d 

6.4082 

-0.5924 

Photo 

#3 

e 

6.2630 

-1.9408 

Photo 

#3 

f 

-6.8496 

11.5518 

Photo 

#3 

rtcl 

-14.4433 

1.1240 

Photo 

#3 

rtc2 

-14.8350 

1.6272 

Photo 

#3 

rtc3 

-13.5483 

1.9610 

Photo 

#3 

rtc4 

-13.1546 

1.3412 

Photo 

#3 

rtc5 

-14.2932 

-0.0966 

Photo 

#3 

rtc6 

-14.6648 

0.3177 

Photo 

#3 

rtc8 

-13.0006 

0.1735 

Photo 

#3 

cenl 

2.4712 

5.4102 

Photo 

#3 

cen2 

1.8198 

5.8215 

Photo 

#3 

cen3 

2.8532 

6.0024 

Photo 

#3 

cen4 

3.5179 

5.5591 

Photo 

#3 

cen5 

2.3619 

4.2667 

Photo 

#3 

cen6 

1.7245 

4.6636 

Photo 

#3 

cen8 

3.4020 

4.4511 

Photo 

#3 

Ifcl 

5.5028 

5.9217 

Photo 

#3 

lfc2 

4.8271 

6.3123 

Photo 

#3 

lfc3 

5.7899 

6.5081 

Photo 

#3 

lfc4 

6.4828 

6.1138 

Photo 

#3 

lfc5 

5.4117 

4.8453 

Photo 

#3 

lfc6 

4.7320 

5.1934 

Photo 

#3 

lfc8 

6.3835 

4.9739 

Photo 

#3 

m_rl 

-2.3092 

1.3017 

Photo 

#3 

m  r4 

-1.6742 

1.4210 

Photo 

#3 

m_tl 

0.2279 

2.5063 

Photo 

#3 

m_t4 

0.8300 

2.5517 

Photo 

#3 

m_bl 

0.3891 

0.8726 

Photo 

#3 

m  b4 

1.0244 

1.0201 

Photo 

#3 

m  11 

1.2089 

2.0383 

Photo 

#3 

m_14 

1.8647 

2.1501 

Photo 

#3 

mtarOl 

-2.5338 

1.3328 

Photo 

#3 

mtar03 

-0.0295 

2.4672 

Photo 

#3 

mtarOS 

-2.1599 

1.6390 

Photo 

#3 

rntarO? 

0.4083 

2.8008 

Photo 

#3 

mtarOS 

1.4039 

2.3643 

Photo 

#3 

mtar09 

0.4882 

2.2840 

Photo 

#3 

mtarll 

0.5680 

1.2977 

Photo 

#3 

******** 

#4 

-55.004 

0.025 

0.025 

#4-623 

a 

-10.8802 

0.1685 

Photo 

#4 

b 

-10.7169 

-1.3150 

Photo 

#4 

c 

-12.2148 

-9.4314 

Photo 

#4 

d 

7.0628 

-4.9962 

Photo 

#4 

e 

6.9465 

-6.4794 

Photo 

#4 

f 

15.8636 

9.4537 

Photo 

#4 

rtcl 

-8.2459 

4.0027 

Photo 

#4 

rtc2 

-7.6466 

4.4882 

Photo 

#4 

rtc3 

-6.6605 

4.3339 

Photo 

#4 

rtc4 

-7.2072 

3.8594 

Photo 

#4 

rtc5 

-8.1876 

2.9329 

Photo 

#4 

cenl 

7.4741 

2.5460 

Photo 

#4 

cen2 

7.7964 

3.1067 

Photo 

#4 
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cen3 

9.1135 

2.8838 

Photo 

#4 

cen4 

8.8578 

2.3307 

Photo 

#4 

cen5 

7.3223 

1.3686 

Photo 

#4 

cen7 

8.9790 

1.6500 

Photo 

#4 

cen8 

8.6777 

1.0756 

Photo 

#4 

Ifcl 

11.5555 

1.8434 

Photo 

#4 

lfc2 

11.8081 

2.4318 

Photo 

#4 

lfc3 

13.2140 

2.2240 

Photo 

#4 

lfc4 

12.9576 

1.6321 

Photo 

#4 

lfc5 

11.4202 

0.6242 

Photo 

#4 

lfc7 

13.0290 

0.8806 

Photo 

#4 

lfc8 

12.8043 

0.3916 

Photo 

#4 

m_rl 

-5.0743 

1.4645 

Photo 

#4 

m_r4 

-4.4616 

1.3635 

Photo 

#4 

m_tl 

-3.9433 

1.9328 

Photo 

#4 

m  t4 

-3.2705 

1.8217 

Photo 

#4 

m_bl 

-4.1263 

0.3528 

Photo 

#4 

m  b4 

-3.4711 

0.1992 

Photo 

#4 

m  11 

-1.5165 

0.8221 

Photo 

#4 

m_14 

-0.8750 

0.6753 

Photo 

#4 

mtarOS 

-4.6532 

1.7187 

Photo 

#4 

mtar07 

-3.4727 

2.1945 

Photo 

#4 

mtar08 

-1.0737 

1.0482 

Photo 

#4 

mtar09 

-3.5618 

1.6216 

Photo 

#4 

mtarll 

******** 

-3.6944 

0.5716 

Photo 

#4 

#5 

-55.002 

0.025 

0.025  #5-591 

c 

-8.8750 

-5.0654 

Photo 

#5 

d 

4.0198 

-7.8227 

Photo 

#5 

e 

3.9235 

-9.3762 

Photo 

#5 

g 

-5.4097 

6.2945 

Photo 

#5 

h 

-16.6844 

7.7931 

Photo 

#5 

i 

-17.2372 

-6.0178 

Photo 

#5 

cenl 

9.4364 

-0.7460 

Photo 

#5 

cen2 

10.7194 

-0.4372 

Photo 

#5 

cen3 

11.6261 

-1.1107 

Photo 

#5 

cen4 

10.3335 

-1.4512 

Photo 

#5 

cen5 

9.2890 

-2.0696 

Photo 

#5 

cen7 

11.4679 

-2.4721 

Photo 

#5 

cen8 

10.1681 

-2.7531 

Photo 

#5 

Ifcl 

12.2063 

-2.8692 

Photo 

#5 

lfc2 

13.5391 

-2.4966 

Photo 

#5 

lfc3 

14.5771 

-3.2857 

Photo 

#5 

lfc4 

13.2244 

-3.6481 

Photo 

#5 

lfc5 

12.0106 

-4.2997 

Photo 

#5 

lfc7 

14.3491 

-4.7190 

Photo 

#5 

lfc8 

13.0245 

-5.0461 

Photo 

#5 

m_tl 

-3,9025 

2.9597 

Photo 

#5 

m  t4 

-3.6723 

2.6868 

Photo 

#5 

m_bl 

-4.3260 

1.5544 

Photo 

#5 

m  b4 

-4.0812 

1.2501 

Photo 

#5 

m  11 

-1.8748 

1.1264 

Photo 

#5 

m  14 

-1.6664 

0.8678 

Photo 

#5 

mtar07 

-3.5228 

3.0140 

Photo 

#5 

mtar08 

-1.4640 

1.1882 

Photo 

#5 

mtarll 

******** 

-3.9256 

1.6231 

Photo 

#5 

51 


Naval  Biodvnamics  Laboratory  Software  Documentation 


Site  Survey  Image  Data  File 


#1 

-55.003 

0.020 

0.020 

#1-580 

Ifcl 

-5.7949 

5.1351 

Photo 

#1 

lfc3 

-7.2231 

5.4386 

Photo 

#1 

lfc4 

-6.0735 

5.5303 

Photo 

#1 

lfc6 

-6.9536 

3.9166 

Photo 

#1 

cl 

-4.8557 

3.8962 

Photo 

#1 

c2 

-6.0864 

3.7907 

Photo 

#1 

c3 

-6.3834 

4.2044 

Photo 

#1 

c4 

-5.1808 

4.3112 

Photo 

#1 

c5 

-4.8583 

2.7129 

Photo 

#1 

xc6 

-5.0768 

2.6152 

Photo 

#1 

c7 

-6.3904 

3.0784 

Photo 

#1 

a 

6.7072 

-6.5844 

Photo 

#1 

b 

6.5145 

-8.2130 

Photo 

#1 

xc 

11.6547 

-10.4506 

Photo 

#1 

rtcl 

-0.9865 

-7.0918 

Photo 

#1 

rtc2 

-2.5984 

-7.3229 

Photo 

#1 

rtc3 

-3.0437 

-6.3967 

Photo 

#1 

rtc6 

-2.6446 

-8.7351 

Photo 

#1 

rtc7 

-3.0631 

-7.6721 

Photo 

#1 

spl 

-0.8812 

-5.6827 

Photo 

#1 

sp2 

-2.5547 

-5.8857 

Photo 

#1 

sp3 

-2.9929 

-4.9675 

Photo 

#1 

sp4 

-1.3947 

-4.7651 

Photo 

#1 

x+12 

7.2373 

-4.8752 

Photo 

#1 

x+18 

11.5754 

-4.3390 

Photo 

#1 

xx-f24 

15.6944 

-3.8774 

Photo 

#1 

y+12 

-4.4051 

-1.0836 

Photo 

#1 

y+06 

-3.2994 

-3.3892 

Photo 

#1 

y-06 

-0.4486 

-9.1017 

Photo 

#1 

z+06 

-1.7586 

-1.6685 

Photo 

#1 

z+12 

-1.4802 

3.1523 

Photo 

#1 

******** 

#2 

-55.003 

0.020 

0.020 

#2-736 

Ifcl 

3.2714 

6.5929 

Photo 

#2 

lfc2 

2.2186 

6.7366 

Photo 

#2 

lfc3 

2.6764 

7.0876 

Photo 

#2 

lfc4 

3.7063 

6.9384 

Photo 

#2 

lfc5 

3.2801 

5.5026 

Photo 

#2 

cl 

1.9758 

5.4892 

Photo 

#2 

c2 

0.8648 

5.6429 

Photo 

#2 

c3 

1.3386 

6.0013 

Photo 

#2 

c4 

2.4146 

5.8469 

Photo 

#2 

c5 

1.9674 

4.3411 

Photo 

#2 

c6 

0.8650 

4.5092 

Photo 

#2 

c8 

2.4153 

4.7473 

Photo 

#2 

a 

-0.0328 

-5.9851 

Photo 

#2 

b 

0.0327 

-7.6305 

Photo 

#2 

d 

7.4512 

1.1925 

Photo 

#2 

e 

7.3906 

-0.0977 

Photo 

#2 

rtcl 

-7.9120 

-3.4810 

Photo 

#2 

rtc2 

-9.1450 

-3.2010 

Photo 

#2 

rtc4 

-7.0908 

-2.7661 

Photo 

#2 

rtc6 

-8.9672 

-4.4653 

Photo 

#2 

rtc8 

-6.9507 

-4.0293 

Photo 

#2 
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spl 

-8.0549 

-2.1649 

Photo 

#2 

sp2 

-9.3388 

-1.8709 

Photo 

#2 

sp3 

-8.4818 

-1.1543 

Photo 

#2 

sp4 

-7.2417 

-1.4510 

Photo 

#2 

x+06 

-4.291 

-3.267 

Photo 

#2 

x+12 

-0.1129 

-4.3138 

Photo 

#2 

x+18 

4.4902 

-5.^098 

Photo 

#2 

x+24 

9.3853 

-6.7941 

Photo 

#2 

y+12 

-3.7281 

1.6400 

Photo 

#2 

y+06 

-5.8430 

-0.2239 

Photo 

#2 

y~06 

-10.8802 

-4.6525 

Photo 

#2 

2+06 

-8.7003 

1.7261 

Photo 

#2 

z+12 

-9.2215 

6.1414 

Photo 

#2 

******** 

#3 

-55.005 

0.020 

0.020 

#3-674 

Ifcl 

4.0397 

5.5041 

Photo 

#3 

lfc2 

3.3822 

5.9104 

Photo 

#3 

lfc3 

4.3475 

6.0686 

Photo 

#3 

lfc4 

5.0157 

5.6775 

Photo 

#3 

lfc5 

3.9276 

4.3961 

Photo 

#3 

lfc6 

3.2902 

4.8045 

Photo 

#3 

lfc8 

4.9122 

4.5765 

Photo 

#3 

cl 

1.0056 

5.0284 

Photo 

#3 

c3 

1.3374 

5.5909 

Photo 

#3 

c4 

2.0284 

5.1684 

Photo 

#3 

c5 

0.9178 

3.8817 

Photo 

#3 

c8 

1.9329 

4.0447 

Photo 

#3 

a 

-12.6827 

-3.4459 

Photo 

#3 

b 

-12.5170 

-5.0742 

Photo 

#3 

d 

4.9602 

-1.0055 

Photo 

#3 

e 

4.8275 

-2.3334 

Photo 

#3 

rtcl 

-16.0460 

0.8673 

Photo 

#3 

rtc2 

-16.4107 

1.3511 

Photo 

#3 

rtc4 

-14.7222 

1.1431 

Photo 

#3 

spl 

-16.2537 

2.1037 

Photo 

#3 

sp2 

-16.6145 

2.6419 

Photo 

#3 

sp3 

-15.2553 

2.9138 

Photo 

#3 

sp4 

-14.8698 

2.3758 

Photo 

#3 

x+06 

-14.5019 

0.1988 

Photo 

#3 

x+12 

-13.1821 

-1.7553 

Photo 

#3 

x+18 

-11.6577 

-4.0109 

Photo 

#3 

x+24 

-9.8755 

-6.6632 

Photo 

#3 

y+12 

-7.9444 

3.5109 

Photo 

#3 

y+06 

-11.7075 

2.7318 

Photo 

#3 

z+06 

-16.1786 

5.6897 

Photo 

#3 

xz+12 

-16.7422 

9.7612 

Photo 

#3 

******** 

#4 

-55.004 

0.020 

0.020 

#4-623 

Ifcl 

11.9856 

1.2442 

Photo 

#4 

lfc2 

12.2511 

1.7817 

Photo 

#4 

lfc3 

13.6146 

1.5487 

Photo 

#4 

lfc4 

13.3883 

1.0000 

Photo 

#4 

lfc5 

11.8238 

-0.0178 

Photo 

#4 

cl 

7.8991 

1.9887 

Phot:* 

#4 

c2 

8.2240 

2.4982 

Phr  I 

#4 

c3 

9.5354 

2.2570 

Photo 

#4 

c4 

9.2529 

1.7262 

Photo 

#4 

c5 

7.7547 

0.7611 

Photo 

#4 

cl 

9.3949 

1.0326 

Photo 

#4 
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c8 

9.0995 

0.4975 

Photo 

#4 

a 

-10.4645 

-0.1838 

Photo 

#4 

b 

-10.3155 

-1.6816 

Photo 

#4 

c 

-11.9078 

-9.7659 

Photo 

#4 

d 

7.4771 

-5.5855 

Photo 

#4 

e 

7.3383 

-7.0749 

Photo 

#4 

rtcl 

-7.8348 

3.6102 

Photo 

#4 

rtc3 

-6.2303 

3.8926 

Photo 

#4 

rtc4 

-6.7993 

3.4752 

Photo 

#4 

spl 

-7.9426 

4.7458 

Photo 

#4 

sp2 

-7.3425 

5.1556 

Photo 

#4 

sp3 

-6.3067 

5.0077 

Photo 

#4 

sp4 

-6.8889 

4.6032 

Photo 

#4 

x+06 

-8.8910 

3.0027 

Photo 

#4 

x-fl2 

-10.9770 

1.4999 

Photo 

#4 

x+18 

-13.3023 

-0.2410 

Photo 

#4 

x+24 

-15.9514 

-2.2621 

Photo 

#4 

y+12 

-0.4666 

3.4284 

Photo 

#4 

y+06 

-3.8499 

3.8573 

Photo 

#4 

y-06 

-10.1517 

4.7047 

Photo 

#4 

y-12 

-13.1429 

5.0840 

Photo 

#4 

z+06 

-7.3604 

7.7035 

Photo 

#4 

z+12 

-7.6641 

11,3800 

Photo 

#4 

#5 

-55.002 

0.020 

0.020  #5-591 

Ifcl 

13.3795 

-1.6085 

Photo 

#5 

lfc2 

14.7298 

-1.2864 

Photo 

#5 

lfc3 

15.7318 

-2.0111 

Photo 

#5 

lfc4 

14.4085 

-2,3869 

Photo 

#5 

lfc5 

13.2096 

-3.0164 

Photo 

#5 

lfc8 

14.2222 

-3,7791 

Photo 

#5 

cl 

10.5775 

0.4921 

Photo 

#5 

c2 

11.8470 

0.8065 

Photo 

#5 

c3 

12.7689 

0.1301 

Photo 

#5 

c4 

11.5012 

-0.1853 

Photo 

#5 

c5 

10.4317 

-0.8291 

Photo 

#5 

cl 

12.6007 

-1.2216 

Photo 

#5 

c8 

11.3409 

-1.5308 

Photo 

#5 

a 

-2.7736 

3.4709 

Photo 

#5 

b 

-2.7222 

2.0911 

Photo 

#5 

c 

-7.6505 

-3.8720 

Photo 

#5 

d 

5.1662 

-6.6614 

Photo 

#5 

e 

5.0906 

-8.1907 

Photo 

#5 

g 

-4.2882 

7.4172 

Photo 

#5 

h 

-15.3891 

8.7627 

Photo 

#5 

i 

-15.7543 

-4.8527 

Photo 

#5 

rtcl 

2.6955 

5.8670 

Photo 

#5 

rtc3 

4.2374 

5.7007 

Photo 

#5 

rtc4 

3.1984 

5.5125 

Photo 

#5 

spl 

2.6777 

6,9694 

Photo 

#5 

sp2 

3.7358 

7.1549 

Photo 

#5 

sp3 

4.2493 

6.8127 

Photo 

#5 

sp4 

3.1962 

6.6312 

Photo 

#5 

x+06 

0.2781 

5.7630 

Photo 

#5 

x+12 

-3.1115 

5.1552 

Photo 

#5 

x+18 

-6.6368 

4.4791 

Photo 

#5 

yx+24 

-10.3156 

3.7349 

Photo 

#5 

y+12 

6.9283 

4.0150 

Photo 

#5 

y+06 

5.0857 

5.2340 

Photo 

#5 
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Xy-06 

3.9596 

7.3648 

Photo 

#5 

y-12 

0.5790 

8.2080 

Photo 

#5 

z+06 

3.4629 

9.7016 

Photo 

#5 

#6 

-55.005 

0.020 

0.020  #6-806 

Ifcl 

2.4619 

-7.3557 

Photo 

#6 

lfc2 

4.1722 

-7.6623 

Photo 

#6 

lfc3 

3.6394 

-8.6773 

Photo 

#6 

Xlfc4 

3.8602 

-8.3064 

Photo 

#6 

lfc6 

4.1490 

-9.1757 

Photo 

#6 

lfc7 

3.6160 

-10.1749 

Photo 

#6 

lfc8 

1.8773 

-9.8583 

Photo 

#6 

cl 

3.9168 

-4.7417 

Photo 

#6 

c2 

5.5280 

-5.0057 

Photo 

#6 

c3 

5.0931 

-5.8876 

Photo 

#6 

c4 

3.4403 

-5.6032 

Photo 

#6 

cl 

5.0483 

-7.3159 

Photo 

#6 

c8 

3.4226 

-7.0360 

Photo 

#6 

c 

-2.5993 

-4.1716 

Photo 

#6 

d 

-3.5502 

-9.3521 

Photo 

#6 

e 

-3.4781 

-10.9654 

Photo 

#6 

g 

12.5777 

3.6942 

Photo 

#6 

h 

3.0283 

7.6486 

Photo 

#6 

i 

-1.7179 

-3.7904 

Photo 

#6 

rtc2 

11.2539 

1.1715 

Photo 

#6 

rtc3 

11.0150 

0.7755 

Photo 

#6 

rtc4 

9.7846 

0.9472 

Photo 

#6 

spl 

10.1463 

2.5314 

Photo 

#6 

sp2 

11.3748 

2.3577 

Photo 

#6 

sp3 

11.1379 

1.9639 

Photo 

#6 

sp4 

9.8826 

2.1281 

Photo 

#6 

x+06 

6.9469 

2.1357 

Photo 

#6 

x+12 

3.4434 

2.5823 

Photo 

#6 

x+18 

0.0651 

2.9968 

Photo 

#6 

x+24 

-3.1824 

3.3527 

Photo 

#6 

y+12 

8.8903 

-1.1057 

Photo 

#6 

y+06 

9.7853 

0.3410 

Photo 

#6 

y-06 

11.2744 

2.8317 

Photo 

#6 

y-12 

11.9040 

3.9156 

Photo 

#6 

z+06 

10.8673 

5.2170 

Photo 

#6 

z+12 

******** 

11.1705 

9.0396 

Photo 

#6 
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Appendix  B 
GIANT  Files 


Input  Files 

GIANT  has  two  input  files:  Image  Data  File  (IMG.DAT)  and  Program  Options  &  Input  File 
(OPT.DAT).  Examples  of  Image  Data  Files  were  given  in  Appendix  A. 


Initial  Conditions  OPT.DAT  File 


(Note:  Only  five  cameras  were  used  for  this  run.  Six  cameras  are  normally  used.) 


02111010001009000  11 

.0005  .0005 

.0005 

#1-580 

-57.092 

#2-736 

-56.988 

#3-674 

-57.295 

#4-623 

-57.434 

#5-591 

-57.292 

******** 

#1 

-0.420 

-1.298 

#1 

195026.815 

-280651.283 

#2 

0.959 

-1.266 

#2 

3325245.322 

-292850.340 

#3 

1.861 

-0.392 

#3 

2993522.783 

-282517.808 

#4 

1.886 

1.124 

#4 

2465401.190 

-261854.437 

#5 

1.003 

2.043 

#5 

2020334.515 

-261000.348 

******** 

a 

0.2977 

0.0099 

b 

0.2988 

0.0088 

c 

0.5555 

0.0766 

d 

0.2991 

0.7227 

e 

0.2996 

0.7200 

g 

0.0549 

-0.9181 

h 

0.6597 

-1.0184 

i 

0.8362 

-0.6713 

rtcl 

0.0252 

-0.0249 

rtc2 

-0.0247 

-0.0250 

rtc3 

-0.0252 

0.0251 

rtc4 

0.0253 

0.0250 

rtc6 

-0.0246 

-0.0254 

rtc7 

-0.0246 

0.0256 

rtc8 

0.0254 

0.0252 

cenl 

0.0701 

0.6693 

cen2 

0.0197 

0.6681 

cen3 

0.0181 

0.7182 

cen4 

0.0682 

0.7196 

cen5 

0.0706 

0.6656 

0.0  0.0 

object  space  control 


0.938  0.1  0.1 

41841.376  20000.  20000. 

0.962  0.1  0.1 

-15808.992  20000.  20000. 

0.912  0.1  0.1 

5422.861  20000.  20000. 

0.863  0.1  0.1 

-14203.303  20000.  20000. 

0.816  0.1  0.1 

-22254.677  20000.  20000. 


-0.0707 

-0.1351 

-0.3266 

-0.1620 

-0.2236 

-0.2093 

-0.0603 

-0.7043 

-0.0250 

-0.0261 

-0.0255 

-0.0253 

-0.0767 

-0.0756 

-0.0765 

0.0204 

0.0200 

0.0163 

0.0166 

-0.0303 


0.1 

20000. 

0.1 

20000. 

0.1 

20000. 

0.1 

20000. 

0.1 

20000. 
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cen7 

0.0190 

0.7157 

cen8 

0.0688 

0.7164 

Ifcl 

0.0653 

0.8193 

lfc2 

0.0152 

0.8187 

lfc3 

0.0145 

0.8687 

lfc4 

0.0646 

0.8699 

lfc5 

0.0662 

0.8170 

lfc6 

0.0156 

0.8152 

lfc8 

******** 

0.0648 

0.8673 

I 


\ 


-0,0337 

-0,0336 

0,0114 

0.0111 

0.0085 

0,0088 

-0,0394 

-0,0391 

-0.0411 
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Body  Anthropometry  OPT.DAT  File 


02111000001009000  10 
.00025  .00025 

LfEyLfSh  -838.200 

RtEyLfSh  -838.200 

LfEyRtSh  -838.200 

RtEyRtSh  -838.200 

******** 

.00025 

LfEyLfSh 

0.506 

-0.451 

-0.080 

0.01 

LfEyLfSh 

3151911.056 

-1059.271 

1647.281 

10000 

RtEyLfSh 

0.548 

-0.413 

-0.078 

0.01 

RtEyLfSh 

3150729.283 

-1631.101 

10108.979 

10000 

LfEyRtSh 

0.515 

0.470 

-0.068 

0.01 

LfEyRtSh 

2223804.999 

-13008.431 

-13520.960 

10000 

RtEyRtSh 

0.483 

0.499 

-0.067 

0,01 

RtEyRtSh 

******** 

2221908.014 

-13824.763 

-12002.768 

10000 

rl 

0.0325 

-0.0468 

0.00356 

r2 

0.0309 

-0.0460 

-0.02190 

r3 

0.0309 

-0.0241 

-0.02180 

r4 

0.0315 

-0.0242 

0.00280 

r5 

0.0523 

-0.0460 

0.00305 

r6 

0.0521 

-0.0467 

-0.02200 

rl 

0.0526 

-0.0232 

-0.02160 

rS 

0.0532 

-0.0243 

0.00330 

cl 

-0.03073 

-0.00731 

0.00178 

c2 

-0.03073 

-0.00698 

-0.01870 

c3 

-0.03073 

0.01422 

-0.02286 

c4 

-0.03100 

0.01574 

0.00254 

c5 

-0.00813 

-0.00757 

0.00254 

c6 

-0.00838 

-0.00879 

-0.01994 

c7 

-0.00787 

0.01550 

-0.02060 

c8 

-0.00762 

0.01641 

0.00216 

11 

0.03048 

0.03300 

0.00317 

12 

0.03073 

0.03380 

-0.02020 

13 

0.03109 

0.05500 

-0.02060 

14 

0.03020 

0.05640 

0.00330 

15 

0.05385 

0.03400 

0.00315 

16 

0.05260 

0.03400 

-0.02010 

17 

0.05160 

0.05550 

-0.02060 

18 

******** 

0.05385 

0.05610 

0.00315 

0.01 

0.01 

10000. 

10000. 

0,01 

0.01 

10000. 

10000. 

0.01 

0.01 

10000, 

10000. 

0,01 

0.01 

10000. 

10000. 
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Anthropometry  and  Initial  Conditions  Photo grammetric  Program 


Body  Anthropometry  OPT.DAT  File  —  Premount  Modification 

HRV  #  0227 

00001010001109000  2 


0.000250 

LfEyLfSh 

RtEyLfSh 

LfEyRtSh 

RtEyRtSh 

******** 

0.000250  0 

-889.000 
-889.000 
-889.000 
-889.000 

.000250 

0.250 

0.250 

0.250 

0.250 

0.250 

0.250 

0.250 

0.250 

LfEyLfSh 

-0.446 

0.003 

0.724 

0.04 

0.04 

0.04 

LfEyLfSh 

-30753.786 

324055.341 

53224.185 

20000. 

20000. 

50000 

RtEyLfSh 

-0.412 

-0.004 

0.750 

0.04 

0.04 

0.04 

RtEyLfSh 

-25648.055 

365055.966 

42450.451 

20000. 

20000. 

50000 

LfEyRtSh 

0.310 

0.013 

0.825 

0.04 

0.04 

0.04 

LfEyRtSh 

1216.754 

-285642.826 

-21733.348 

20000. 

20000. 

50000 

RtEyRtSh 

0.413 

0.022 

0.780 

0.04 

0.04 

0.04 

RtEyRtSh 

******** 

ctp 

rtp 

itp 

******** 

902.372 

.0000 

-.0889 

.0889 

-294739.770 

.0000 

.0000 

.0000 

-21416.237 

.0000 

.0635 

.0635 

20000. 

20000. 

50000 
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Head  Anthropometry  OPT.DAT  File 

02111000001009000  11 

.00025  .00025  .00025  object  space  control  —  instrument  coordinates 

#1-580  -57.092 


#2' 

-736 

-56.988 

#3' 

-674 

-57.295 

#4- 

-623 

-57.434 

#5' 

-591 

-57.292 

#6' 

-806 

-57.539 

******** 

#1 

-0.215 

-1.296 

-0.704 

.010 

.010 

.010 

#1 

123907.524  212026.467 

1140044.621 

10000. 

10000. 

10000. 

#2 

-0.681 

-1.365 

0.234 

.010 

.010 

.010 

#2 

281640.865  -145943.634 

1233733.229 

10000. 

100000. 

10000. 

#3 

-0.881 

-0.523 

0.734 

.010 

.010 

.010 

#3 

643038.319  -451500.948 

1565717.778 

10000. 

10000. 

10000. 

#4 

-0.870 

0.156 

0.750 

.010 

.010 

.010 

#4 

950102.260  -463437.760- 

■1773742.194 

10000. 

10000. 

10000. 

#5 

-0.669 

0.994 

0.337 

.010 

.010 

.010 

#5 

1375856.349  -263803.624- 

•1350102.512 

10000. 

10000. 

10000. 

#6 

-0.217 

0.995 

-0.568 

.010 

.010 

.010 

#6 

1633732.172  160415.301- 

1105627.125 

10000. 

10000. 

10000. 

******** 

mrcl 

.02950 

-.04813 

.00457 

mrc2 

.02950 

-.04813 

-.02032 

mrc3 

.02950 

-.02375 

-.02032 

mrc4 

.02950 

-.02375 

.00457 

mrc5 

.05490 

-.04813 

.00457 

mrc6 

.05490 

-.04813 

-.02032 

mrc7 

.05490 

-.02375 

-.02032 

mrc8 

.05490 

-.02375 

.00457 

mccl 

-.03200 

-.00838 

.00457 

mcc2 

-.03200 

-.00838 

-.02172 

mcc3 

-.03200 

.01753 

-.02172 

mcc4 

-.03200 

.01753 

.00457 

mcc5 

-.00635 

-.00838 

.00457 

mcc6 

-.00635 

-.00838 

-.02172 

mccl 

-.00635 

.01753 

-.02172 

mcc8 

-.00635 

.01753 

.00457 

mlcl 

.02980 

.03152 

.00508 

mlc2 

.02980 

.03152 

-.02045 

mlc3 

.02980 

.05705 

-.02045 

mlc4 

.02980 

.05705 

.00508 

mlc5 

.05480 

.03152 

.00508 

mlc6 

.05476 

.03152 

-.02045 

mlc7 

.05480 

.05705 

-.02045 

mlc8 

.05480 

.05705 

.00508 

*******  * 
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Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


Head  Anthropometry  OPT.DAT  File  —  Premount  Modification 


HRV  #  0222 

00001010001109000  1 


0.000250 
AP  cm 
LAT  CAM 
******** 

0.000250  0 

-1820.09 
-  889.00 

.000250 

A/Phrv45 

1.068 

0.577 

A/Phrv45 

211014.306 

-491537.856 

A/Pprism 

0.523 

0.234 

A/Pprism 

15412.372 

-224814.291 

LAThrv45 

-0.500 

0.259 

LAThrv45 

190143.916 

392138.153 

LATprism 

-0.645 

0.172 

LATprism 

******** 

32255.040 

682534.993 

cl 

-0.0469 

0.0508 

c2 

-0.2347 

0.0508 

c3 

-0.2347 

0.2540 

c4 

-0.0469 

0.2540 

c5 

0.0237 

0.2540 

c6 

0.0194 

0.0508 

cl 

0.0972 

0.0508 

c8 

0.0972 

0.2540 

c9 

0.0503 

0.1524 

clO 

-0.0825 

0.1524 

cll 

-0.2152 

0.1524 

cl2 

-0.0825 

0.0508 

cl3 

******** 

-0.0825 

0.2540 

1.160 

0.10 

0.10 

84935.941 

10000. 

10000 

1.618 

0.10 

0.10 

-4329.419 

10000. 

10000 

0.672 

0.10 

0.10 

165243.147 

10000. 

10000 

0.415 

0.10 

0.10 

-20135.417 

10000. 

10000 

0.0194 

0.0005 

0.0005 

0.0972 

0.0005 

0.0005 

0.0972 

0.0005 

0.0005 

0.0194 

0.0005 

0.0005 

0.0573 

0.0005 

0.0005 

0.0469 

0.0005 

0.0005 

0.2347 

0.0005 

0.0005 

0.2347 

0.0005 

0.0005 

0.2541 

0.1991 

0.1441 

0.1991 

0.1991 


0.10 

10000. 

0.10 

10000. 

0.10 

10000. 

0.10 

10000. 

0.0005 

0.0005 

0.0005 

0.0005 

0.0005 

0.0005 

0.0005 

0.0005 
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Site  Survey  OPT.DAT  File 


02111010001009000  11 

o 

o 

o 

0 

0.0005  0.0005 

0.0005 

object 

space  control 

#1-580 

-57.092 

#2-736 

-56.988 

#3-674 

-57.295 

#4-623 

-57.434 

#5-591 

-57.292 

#6-806 

-57.539 

******** 

#1 

-0.420 

-1.298 

0.938 

0.1 

0.1 

0.1 

#1 

195026.815 

-280651.283 

41841.376 

20000. 

20000. 

20000. 

#2 

0.959 

-1.266 

0.962 

0.1 

0.1 

0.1 

#2 

3325245.322 

-292850.340 

-15808.992 

20000. 

20000. 

20000. 

#3 

1.861 

-0.392 

0.912 

0.1 

0.1 

0.1 

#3 

2993522.783 

-282517.808 

5422.861 

20000. 

20000. 

20000. 

#4 

1.886 

1.124 

0.863 

0.1 

0.1 

0.1 

#4 

2465401.190 

-261854.437 

-14203.303 

20000. 

20000. 

20000. 

#5 

1.003 

2.043 

0.816 

0.1 

0.1 

0.1 

#5 

2020334.515 

-261000.348 

-22254.677 

20000. 

20000. 

20000. 

#6 

-0.361 

2.092 

0.787 

0.1 

0.1 

0.1 

#6 

1583448.831 

-222547.057 

-1108.903 

20000. 

20000. 

20000. 

******** 

spl 

0.0254 

-0.0254 

0.0254 

sp2 

-0.0254 

-0.0254 

0.0254 

sp3 

-0.0254 

0.0254 

0.0254 

sp4 

0.0254 

0.0254 

0.0254 

rtcl 

0.0254 

-0.0254 

-0.0254 

rtc2 

-0.0254 

-0.0254 

-0.0254 

rtc3 

-0.0254 

0.0254 

-0.0254 

rtc4 

0.0254 

0.0254 

-0.0254 

rtc5 

0.0254 

-0.0254 

-0.0762 

rtc6 

-0.0254 

-0.0254 

-0.0762 

rtc7 

-0.0254 

0.0254 

-0.0762 

rtc8 

0.0254 

0.0254 

-0.0762 

z+12 

0.0000 

0.0000 

0.3048 

z+06 

0.0000 

0.0000 

0.1524 

y+12 

0.0000 

0.3048 

0.0000 

y+06 

0.0000 

0.1524 

0.0000 

y-06 

0.0000 

-0.1524 

0.0000 

y-12 

0.0000 

-0.3048 

0.0000 

x+24 

0.6048 

0.0000 

0.0000 

x+18 

0.4572 

0.0000 

0.0000 

x+12 

0.3048 

0.0000 

0.0000 

x+06 

0.1524 

0.0000 

0.0000 

******** 

#2 

.600 

-1.500 

.600 

0.2 

0.2 

0.2 

#2 

710920.170 

272650.444 

90718.956 

500. 

500. 

500. 

#3 

1.500 

0.000 

.600 

0.2 

0.2 

0.2 

#3 

492355.502 

664443.019 

395816.778 

500. 

500. 

500. 

#4 

1.500 

.600 

.600 

0.2 

0.2 

0.2 

#4 

-101342.721 

713806.049 

1002814.067 

500. 

500. 

500. 

#5 

.600 

2.700 

.600 

0.2 

0.2 

0.2 

#5 

-612956.739 

410812.461 

1601544.882 

500. 

500. 

500. 

#6 

-.300 

2.700 

.600 

0.2 

0.2 

0.2 

#6 

-663405.275 

-82306.154- 

■1755645.212 

500. 

500. 

500. 
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Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


Output  Files 

Initial  Conditions  Output  File 

NBDL  GIANT:  08:47  05/19/92  Page  1 

35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

Object  Space  Reference  System  is  Rectangular 
Rotation  angles  are  Terrestrial  Object-to-Photo 
Complete  Triangulation  process  is  requested 
Error  Propagation  is  requested 
[Variance/Covariance  output] 

Unit  Variance  will  be  based  on  completely  free  camera  parameters 
All  Image  Residuals  will  be  listed 
Triangulated  Object  Coordinates  will  not  be  saved 
Adjusted  Camera  Station  Parameters  will  be  saved 


NBDL  GIANT:  08:47  05/19/92  Page  2 

35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

ERROR  WARNINGS 


POINTS  NOT  PHOTOGRAPHED 

rtc7 


PASS  POINTS  APPEARING  ON  1  PHOTO 

*  cenl  *  cen3  *  cen5  *  cen7 

*  Ifcl  *  lfc2  *  lfc4  *  lfc6 


NBDL  GIANT:  08:47  05/19/92 

35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN 

CAMERA  STATIONS  CORRECTI 
- POSITION -  - A  T  T  I 


Page  3 
#  =  LX6422 

O  N  S 

T  U  D  E - 
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X 

Y 

z 

Azim. 

Elev. 

Swing 

Iteration  1 

#1 

0.0045 

0.0320 

-0.0175  m. 

-0.053781 

-0.016545 

-0.030237 

#2 

0.0110 

0.0194 

-0.0004  m. 

-0.034333 

-0.014277 

-0.023851 

#3 

0.0075 

0.0197 

0.0144  m. 

0.018638 

-0.051629 

0.033912 

#4 

-0.0065 

0.0106 

-0.0028  m. 

-0.005101 

0.012266 

-0.021293 

#5 

0.0080 

-0.0048 

-0.0066  m. 

0.030224 

-0.018579 

0.015213 

Provisional  Weighted  Sum  of 

Squares  =  634521. 

Iteration  2 

#1 

-0.0006 

-0.0076 

0.0035  m. 

0.001399 

-0.000585 

-0.001253 

#2 

-0.0114 

-0.0087 

0.0020  m. 

-0.007168 

0.000838 

0.000339 

#3 

0.0010 

-0.0012 

-0.0006  m. 

-0.000375 

-0.000185 

0.000226 

#4 

0.0013 

-0.0012 

-0.0006  m. 

0.000628 

0.000346 

0.000065 

#5 

0.0004 

0.0011 

0.0014  m. 

-0.000296 

-0.000139 

0.000113 

Provisional  Weighted  Sum  of 

Squares  =  1176.94 

Iteration  3 

#1 

0.0000 

0.0000 

0.0000  m. 

0.000001 

-0.000010 

-0.000014 

#2 

0.0004 

0.0003 

0.0000  m. 

0.000244 

-0.000077 

0.000011 

#3 

0.0000 

0.0000 

0.0000  m. 

-0.000008 

0.000037 

-0.000031 

#4 

0.0000 

0.0000 

0.0000  m. 

0.000019 

0.000017 

-0.000012 

#5 

0.0000 

0.0000 

0.0000  m. 

-0.000003 

0.000003 

-0.000004 

Provisional  Weighted  Sum  of 

Squares  =  274.075 

Iteration  4 

#1 

0.0000 

0.0000 

0.0000  m. 

0.000000 

0.000000 

0.000000 

#2 

0.0000 

0.0000 

0.0000  m. 

-0.000004 

0.000006 

-0.000002 

#3 

0.0000 

0.0000 

0.0000  m. 

0.000000 

-0.000001 

0.000001 

#4 

0.0000 

0.0000 

0.0000  m. 

0.000000 

-0.000001 

0.000001 

#5 

0.0000 

0.0000 

0.0000  m. 

0.000000 

0.000000 

0.000000 

Provisional  Weighted  Sum  of 

Squares  =  274.024 
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Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


NBDL  GIANT:  08:47  05/19/92 

35inm  Still  Camera  System  For  Initial  Conditions  Of  RUN  # 

TRIANGULATED  IMAGE  POINTS  RES: 

( in  micrometers ) 


a  *0* 

#1 

#2 

#3 

#4 

19 

0 

-39 

22 

40 

-30 

-50 

27 

b  *0* 

#1 

#2 

#3 

#4 

2 

-6 

-19 

16 

9 

-19 

-22 

21 

c  *0* 

#2 

#1 

#4 

#5 

30 

-59 

-6 

-28 

-34 

4 

8 

62 

rtcl  *0* 

#2 

#3 

#1 

#4 

8 

-22 

14 

-2 

-13 

-19 

-4 

24 

rtc2  *0* 

#1 

#2 

#3 

#4 

-3 

-12 

14 

-38 

4 

46 

-9 

-57 

rtc3  *0* 

#1 

#2 

#3 

#4 

-19 

41 

17 

1 

5 

8 

-29 

-8 

rtc4  *0* 

#2 

#1 

#3 

#4 

-2 

-23 

5 

-21 

16 

15 

24 

4 

rtc5 

#2 

#3 

#1 

#4 

-4 

-5 

12 

19 

1 

0 

-2 

2 

rtc6  *0* 

#1 

#2 

#3 

0 

13 

26 

-54 

-25 

110 

cen2  *0* 

#3 

#1 

#4 

#5 

9 

-40 

0 

-26 

0 

-6 

-17 

6 

cen6 

#1 

#3 

0 

1 

-3 

3 

lfc7 

#1 

#4 

#5 

32 

-6 

18 

-17 

33 

-16 

m_rl 

#2 

#3 

#4 

#1 

3 

-9 

10 

2 

0 

-12 

5 

6 

Page  4 
=  LX6422 

DUALS 
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NBDL  GIANT:  08:47  05/19/92 


35inm  Still 

Camera  System 

For 

Initial  Conditions  Of 

RUN  # 

T  R  I  A  N  G 

U  L  A  T  E  D 

I  M 

AGE  P  0 

I  N  T  S 

res: 

(in  micrometers) 

m  r4 

#2 

#1 

#3 

#4 

16 

0 

-3 

6 

-7 

-18 

16 

8 

m  tl 

#1 

#2 

#3 

#4 

#5 

25 

-3 

1 

9 

11 

-11 

11 

-16 

21 

-7 

m  t4 

#3 

#2 

#1 

#4 

#5 

21 

-12 

-7 

-29 

4 

32 

-25 

16 

-13 

-9 

m  bl 

#3 

#1 

#2 

#4 

#5 

7 

19 

-14 

-13 

10 

25 

10 

-11 

-3 

-22 

m  b4 

#3 

#2 

#1 

#4 

#5 

28 

-10 

10 

0 

-2 

15 

-19 

-25 

18 

5 

mtarOl 

#1 

#3 

#2 

0 

-3 

-11 

12 

-32 

20 

mtar03 

#3 

#1 

#2 

12 

12 

-10 

16 

-12 

-6 

mtarOS 

#3 

#2 

#1 

#4 

5 

-23 

4 

-11 

-10 

26 

7 

-23 

mtar07 

#3 

#1 

#2 

#4 

#5 

5 

1 

-5 

-12 

12 

18 

21 

-20 

-26 

8 

mtarll 

#1 

#2 

#3 

#4 

#5 

-3 

-4 

-6 

0 

-1 

1 

39 

-45 

14 

-8 

rtcS  *0* 

#2 

#3 

0 

18 

25 

4 

mtar09 

#3 

#4 

#2 

-16 

6 

6 

-11 

-7 

19 

d  *0* 

#4 

#5 

#3 

37 

-39 

-4 

-11 

-38 

14 

Page  5 
=  LX6422 

DUALS 
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Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


NBDL  GIANT:  08:47  05/19/92 

35mm  Still  Camera  System  For  Initial  Conditions  Of 

TRIANGULATED  IMAGE  POINTS 

(in  micrometers) 


e  *0* 

#4 

#3 

#5 

29 

13 

-22 

-13 

13 

-45 

f 

#3 

#4 

2 

2 

-20 

18 

cenl  *0* 

#4 

#5 

#3 

5 

-6 

-13 

15 

9 

-8 

cen3  *0* 

#3 

#4 

#5 

-6 

3 

-12 

-18 

-22 

3 

cen4  *0* 

#3 

#4 

#5 

-23 

-22 

4 

10 

-12 

13 

cen5  *0* 

#4 

#5 

#3 

17 

-11 

0 

-29 

18 

-5 

cen8  *0* 

#3 

#5 

#4 

-4 

0 

5 

-6 

-14 

18 

Ifcl  *0* 

#3 

#5 

#4 

-17 

18 

0 

0 

6 

23 

lfc2  *0* 

#4 

#3 

#5 

-2 

6 

13 

-7 

13 

-15 

lfc3  *0* 

#4 

#5 

#3 

-26 

10 

20 

-24 

18 

-14 

lfc4  *0* 

#5 

#4 

#3 

16 

9 

-7 

15 

3 

-13 

lfc5  *0* 

#5 

#3 

#4 

31 

-7 

-11 

31 

-33 

-12 

lfc6  *0* 

#3 

1 

30 

Page  6 

RUN  #  =  LX6422 
RESIDUALS 
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NBDL  GIANT:  08:47  05/19/92 

35inin  Still  Camera  System  For  Initial  Conditions  Of  RUN  # 

TRIANGULATED  IMAGE  POINTS  RES 

(in  micrometers) 


lfc8  *0* 

#4 

#5 

#3 

“8 

20 

-11 

-2 

3 

33 

m_ll 

#4 

#5 

#3 

-4 

1 

3 

9 

-7 

-3 

m  14 

#5 

#3 

#4 

-5 

0 

-4 

-25 

3 

22 

ratar08 

#4 

#5 

#3 

7 

-7 

-6 

2 

-3 

1 

cen7  *0* 

#5 

#4 

-28 

14 

18 

-10 

g  *0* 

#5 

-59 

-23 

h  *0* 

#5 

47 

-30 

i  *0* 

#5 

18 

47 

Weighted  Sum  of  Squares  (Camera)  =  10.6 
Weighted  Sum  of  Squares  (Object)  =  23.0 
Weighted  Sum  of  Squares  (Plates)  =  198.9 

Weighted  Sum  of  Squares  (Total)  =  232.6 
Degrees  of  Freedom .  =  219 


a  posteriori  Variance  of  Unit  Weight  =  1 


Page  7 
=  LX6422 

I  D  U  A  L  S 
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35mm  Still  Ceimera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

TRIANGULATED  CAMERA  STATIONS 

(Terrestrial“>Ph) 

Ident  Position/Attitude  Covariance  Matrix 

X  =  -0.4161  m.  +6.464E-06  -1.127E-06  +1.874E-06 

#1  Y  =  -1.2737  m.  -1.127E-06  +3.629E-06  -1.916E-06 

Z  =  0.9240  m.  +1.874E-06  -1.916E-06  +1.211E-05 

Azim.  =  23  23  7.7343  +2.215E-06  -8.075E-07  -9.951E-07 

Elev.  =-  28  28  22.2050  -8.075E-07  +2.215E-06  -9.951E-07 

Swing  =  04  30  20.1043  -9.951E-07  -9.951E-07  +1.899E-06 

X  =  0.9589  m.  +8.445E-05  +1.558E-05  -2.980E-05 

#2  Y  =  -1.2551  m.  +1.558E-05  +3.261E-05  +3.255E-05 

Z  =  0.9635  m.  -2.980E-05  +3.255E-05  +7.439E-05 

Azim.  =  335  20  18.8974  +2.659E-05  +5.336E-06  -5.121E-06 

Elev.  =-  30  44  10.5319  +5.336E-06  +2.659E-05  -5.121E-06 

Swing  =-  02  22  27.9251  -5.121E-06  -5.121E-06  +7.303E-06 

X  =  1.8695  m.  +5.670E-06  +4.617E-06  -1.719E-07 

#3  Y  =  -0.3735  m.  +4.617E-06  +8.153E-06  +2.155E-06 

Z  =  0.9258  m.  -1.719E-07  +2.155E-06  +7.046E-06 

Azim.  =  297  15  51.8284  +1.768E-06  -6.505E-07  +5.537E-08 

Elev.  =-  29  08  19.2178  -6.505E-07  +1.768E-06  +5.537E-08 

Swing  =-  00  32  43.9160  +5.537E-08  +5.537E-08  +4.103E-06 

X  =  1.8808  m.  +4.551E-06  -3.575E-06  -1.163E-06 

#4  Y  =  1.1334  m.  -3.575E-06  +8.362E-06  -2.180E-06 

Z  ^  0.8596  m.  -1.163E-06  -2.180E-06  +7.209E-06 

Azim.  =  247  02  10.9444  +1.828E-06  +3.716E-07  -6.554E-08 

Elev.  =-  26  46  59.3300  +3.716E-07  +1.828E-06  -6.554E-08 

Swing  =-  02  15  41.0295  -6.554E-08  -6.554E-08  +5.368E-06 

X  =  1.0114  m.  +6.005E-06  +1.816E-06  +1.160E-06 

#5  Y  =  2.0392  m.  +1.816E-06  +1.593E-06  -2.155E-07 

Z  =  0.8108  m.  +1.160E-06  -2.155E-07  +5.105E-06 

Azim.  =  203  43  47.2399  +8.511E-07  -1.164E-07  +4.012E-07 

Elev.  =-  24  52  19.6241  -1.164E-07  +8.511E-07  +4.012E-07 

Swing  =-  01  09  39.0473  +4.012E-07  +4.012E-07  +1.824E-06 


SUMMARY  STATISTICS  FOR  CAMERA  STATIONS 

RMS  For  Standard  Deviations 

X  =  0.0046  m.  Azim.  =  00  08  51.9034 

Count  =5  Y  =  0.0033  m.  Elev.  =  00  10  24.0679 

Z  -  0.0046  m.  Swing  =  00  06  57.6248 
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35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

TRIANGULATED  OBJECT  POINTS 

Ident  Position  (meters)  Covariance  Matrix  Std  Dev  (m) 

X  =  0.2974  +1.740E-07  +6.278E-09  +1.107E-08  0.0004 

a  *0*  Y  =  0.0104  +6.278E-09  +1.653E-07  -1.666E-08  0.0004 

Z  =  -0.0706  +1.107E-08  -1.666E-08  +1.631E-07  0.0004 

X  =  0.2989  +1.677E-07  +4.085E-09  +1.403E-08  0.0004 

b  *0*  y  =  0.0091  +4.085E-09  +1.622E-07  -1.839E-08  0.0004 

Z  =  -0.1350  +1.403E-08  -1.839E-08  +1.634E-07  0.0004 

X  =  0.5555  +1.869E-07  +7.241E-09  +1.116E-08  0.0004 

c  *0*  Y  =  0.0768  +7.241E-09  +1.947E-07  +2.325E-09  0.0004 

Z  =  -0.3269  +1.116E-08  +2.325E-09  +1.948E-07  0.0004 

X  =  0.2987  +1.884E-07  +8.421E-09  +3.027E-08  0.0004 

d  *0*  Y  =  0.7222  +8.421E-09  +1.711E-07  +1.450E-08  0.0004 

Z  =  -0.1616  +3.027E-08  +1.450E-08  +1.751E-07  0.0004 

X  =  0.2992  +1.894E-07  +8.250E-09  +3.095E-08  0.0004 

e  *0*  Y  =  0.7193  +8.250E-09  +1.702E-07  +1.494E-08  0.0004 

Z  =  -0.2231  +3.095E-08  +1.494E-08  +1.784E-07  0.0004 

X  =  -1.3294  +4.304E-05  -4.595E-06  +1.208E-05  0.0066 

f  Y  =  0.7979  -4.595E-06  +4.974E-06  -1.245E-06  0.0022 

Z  =  -0.1228  +1.208E-05  -1.245E-06  +7.801E-06  0.0028 

X  =  0.0545  +2.488E-07  +4.645E-09  +2.198E-09  0.0005 

g  *0*  Y  =  -0.9180  +4.645E-09  +2.627E-07  +3.735E-09  0.0005 

Z  =  -0.2092  +2.198E-09  +3.735E-09  +2.526E-07  0.0005 

X  =  0.6600  +2.454E-07  +2.079E-09  +8.145E-10  0.0005 

h  *0*  Y  =  -1.0185  +2.079E-09  +2.637E-07  +5.551E-09  0.0005 

Z  =  -0.0600  +8.145E-10  +5.551E-09  +2.457E-07  0.0005 

X  =  0.8364  +2.462E-07  +1.675E-10  +1.937E-09  0.0005 

i  *0*  Y  =  -0.6712  +1.675E-10  +2.603E-07  +9.387E-09  0.0005 

Z  =  -0.7046  +1.937E-09  +9.387E-09  +2.485E-07  0.0005 

X  =  0.0702  +1.965E-07  +1.487E-08  +2.825E-08  0.0004 

cenl  *0*  y  =  0.6695  +1.487E-08  +1.697E-07  +1.042E-08  0.0004 

Z  =  0.0202  +2.825E-08  +1.042E-08  +1.635E-07  0.0004 

X  =  0.0197  +1.825E-07  +1.510E-08  +2.446E-08  0.0004 

cen2  *0*  Y  =  0.6682  +1.510E-08  +1.669E-07  +4.339E-09  0.0004 

Z  =  0.0202  +2.446E-08  +4.339E-09  +1.556E-07  0.0004 

X  =  0.0179  +1.989E-07  +1.525E-08  +2.814E-08  0.0004 

cen3  *0*  Y  =  0.7183  +1.525E-08  +1.694E-07  +1.058E-08  0.0004 

Z  =  0.0166  +2.814E-08  +1.058E-08  +1.653E-07  0.0004 

X  =  0.0683  +1.959E-07  +1.498E-08  +2.846E-08  0.0004 

cen4  *0*  Y  =  0.7200  +1.498E-08  +1.683E-07  +1.073E-08  0.0004 

Z  =  0.0165  +2.846E-08  +1.073E-08  +1.634E-07  0.0004 
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35inm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

TRIANGULATED  OBJECT  POINTS 

Ident  Position  (meters)  Covariance  Matrix  Std  Dev  (m) 

X  =  0.0704  +1.964E-07  +l,444E-08  +2.914E-08  0.0004 

cen5  *0*  Y  =  0.6656  +1.444E-08  +1.699E-07  +1.124E-08  0.0004 

Z  =  -0.0302  +2.914E-08  +1.124E-08  +1.661E-07  0.0004 

X  =  0.0204  +1.276E-06  -4.484E-07  +4.119E-07  0.0011 

cen6  y  =  0.6633  -4.484E-07  +1.674E-06  -6.546E-07  0.0013 

Z  =  -0.0311  +4.119E-07  -6.546E-07  +1.154E-06  0.0011 

X  =  0.0187  +2.118E-07  +2.906E-08  +2.738E-08  0.0005 

cen7  *0*  Y  =  0.7158  +2.906E-08  +1.926E-07  +2.005E-08  0.0004 

Z  =  -0.0338  +2,738E-08  +2.005E-08  +1.859E-07  0.0004 

X  =  0.0689  +1.958E-07  +1.451E-08  +2.941E-08  0.0004 

cen8  *0*  Y  =  0.7163  +1.451E-08  +1.687E-07  +1.151E-08  0.0004 

Z  =  -0.0336  +2.941E-08  +1.151E-08  +1.660E-07  0.0004 

X  =  0.0657  +1.949E-07  +1.510E-08  +2.895E-08  0.0004 

Ifcl  *0*  Y  =  0.8194  +1.510E-08  +1.658E-07  +1.135E-08  0.0004 

Z  =  0.0111  +2.895E-08  +1.135E-08  +1.634E-07  0.0004 

X  =  0.0153  +1.983E-07  +1.518E-08  +2.871E-08  0.0004 

lfc2  *0*  Y  =  0.8185  +1.518E-08  +1.675E-07  +1.128E-08  0.0004 

Z  =  0.0112  +2.871E-08  +1.128E-08  +1.651E-07  0.0004 

X  =  0.0144  +1.982E-07  +1.501E-08  +2.910E-08  0.0004 

lfc3  *0*  y  =  0.8688  +1.501E-08  +1.668E-07  +1.162E-08  0.0004 

Z  =  0.0087  +2.910E-08  +1.162E-08  +1.652E-07  0.0004 

X  =  0.0649  +1.946E-07  +1.507E-08  +2.928E-08  0.0004 

lfc4  *0*  y  =  0.8698  +1.507E-08  +1.647E-07  +1.164E-08  0.0004 

Z  =  0.0087  +2.928E-08  +1.164E-08  +1.637E-07  0.0004 

X  =  0.0665  +1.949E-07  +1.454E-08  +3.007E-08  0.0004 

lfc5  *0*  Y  =  0.8172  +1.454E-08  +1.665E-07  +1.198E-08  0.0004 

Z  =  -0.0394  +3.007E-08  +1.198E-08  +1.662E-07  0.0004 

X  =  0.0157  +2.481E-07  -1.635E-08  +1.336E-08  0.0005 

lfc6  *0*  Y  =  0.8151  -1.635E-08  +2.329E-07  -8.751E-09  0.0005 

Z  =  -0.0394  +1.336E-08  -8.751E-09  +2.291E-07  0.0005 

X  =  0.0151  +1.081E-06  +5.146E-07  +4.363E-07  0.0010 

lfc7  Y  =  0.8667  +5.146E-07  +7.990E-07  +2.980E-07  0.0009 

Z  =  -0.0435  +4.363E-07  +2.980E-07  +6.476E-07  0.0008 

X  =  0.0652  +1.947E-07  +1.448E-08  +3.047E-08  0.0004 

lfc8  *0*  Y  =  0.8673  +1.448E-08  +1.656E-07  +1.212E-08  0.0004 

Z  =  -0.0414  +3.047E-08  +1.212E-08  +1.665E-07  0.0004 

X  =  0.4426  +4.856E-07  +8.406E-08  +9.592E-08  0.0007 

m_bl  y  =  0.3770  +8.406E-08  +6.617E-07  +8.215E-09  0.0008 

Z  =  0.0610  +9.592E-08  +8.215E-09  +3.880E-67  0.0006 
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35inm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

TRIANGULATED  OBJECT  POINTS 


Ident  Position  (meters)  Covariance  Matrix  Std  Dev  (m) 


X 

0.4432 

+4.992E-07 

+8.936E-08 

+1.046E-07 

0.0007 

m_b4 

y 

= 

0.4015 

+8.936E-08 

+6.729E-07 

+1.740E-08 

0.0008 

z 

= 

0.0603 

+1.046E-07 

+1.740E-08 

+3.979E-07 

0.0006 

X 

_ 

0.3785 

+8.510E-07 

+1.769E-07 

+2.904E-07 

0.0009 

m  11 

Y 

0.4429 

+1.769E-07 

+7.128E-07 

+1.356E-07 

0.0008 

z 

= 

0.0587 

+2.904E-07 

+1.356E-07 

+5.603E-07 

0.0007 

X 

_ 

0.3812 

+8.431E-07 

+1.713E-07 

+2.877E-07 

0.0009 

m  14 

Y 

0.4672 

+1.713E-07 

+7.102E-07 

+1.338E-07 

0.0008 

Z 

= 

0.0586 

+2.877E-07 

+1.338E-07 

+5.608E-07 

0.0007 

X 

0.3750 

+5.278E-07 

+2.259E-08 

+1.052E-07 

0.0007 

m  rl 

y 

0.3092 

+2.259E-08 

+6.204E-07 

-7.672E-08 

0.0008 

Z 

= 

0.0614 

+1.052E-07 

-7.672E-08 

+4.199E-07 

0.0006 

X 

= 

0.3758 

+5.416E-07 

+2.388E-08 

+l,134E-07 

0.0007 

m  r4 

y 

0.3328 

+2.388E-08 

+6.331E-07 

-7.194E-08 

0.0008 

z 

= 

0.0615 

+1.134E-07 

-7.194E-08 

+4.289E-07 

0.0007 

X 

_ 

0.4255 

+4.964E-07 

+8.312E-08 

+8.654E-08 

0.0007 

m  tl 

y 

= 

0.3801 

+8.312E-08 

+6.831E-07 

+5.775E-09 

0.0008 

z 

= 

0.1119 

+8.654E-08 

+5.775E-09 

+3.749E-07 

0.0006 

X 

— 

0.4261 

+5.068E-07 

+8.763E-08 

+9.454E-08 

0.0007 

m  t4 

Y 

= 

0.4031 

+8.763E-08 

+6.929E-07 

+1.373E-08 

0.0008 

z 

= 

0.1102 

+9.454E-08 

+1.373E-08 

+3.838E-07 

0.0006 

X 

_ 

0.0249 

+1.628E-07 

-2.363E-09 

+1.401E-08 

0.0004 

rtcl 

*0* 

Y 

= 

^0.0244 

-2.363E-09 

+1.626E-07 

-2.030E-08 

0.0004 

Z 

= 

-0.0249 

+1.401E-08 

-2.030E-08 

+1.584E-07 

0.0004 

X 

= 

-0.0249 

+1.652E-07 

-3.041E-09 

+1.378E-08 

0.0004 

rtc2 

*0* 

Y 

= 

-0.0251 

-3.041E-09 

+1.657E-07 

-2.079E-08 

0.0004 

Z 

-0.0261 

+1.378E-08 

-2.079E-08 

+1.616E-07 

0.0004 

X 

-0.0255 

+1.653E-07 

-2.973E-09 

+1.354E-08 

0.0004 

rtc3 

*0* 

Y 

0.0245 

-2.973E-09 

+1.660E-07 

-2.070E-08 

0.0004 

Z 

-0.0252 

+1.354E-08 

-2.070E-08 

+1.604E-07 

0.0004 

X 

— 

0.0256 

+1.617E-07 

-2.712E-09 

+1.443E-08 

0.0004 

rtc4 

*0* 

y 

= 

0.0248 

-2.712E-09 

+1.627E-07 

-2.035E-08 

0.0004 

z 

= 

-0.0259 

+1.443E-08 

-2.035E-08 

+1.564E-07 

0.0004 

X 

_ 

0.0266 

+4.157E-07 

-3.722E-08 

+9.723E-08 

0.0006 

rtc5 

y 

= 

-0.0255 

-3.722E-08 

+4.379E-07 

-1.485E-07 

0.0007 

z 

-0.0747 

+9.723E-08 

-1.485E-07 

+4.311E-07 

0.0007 

X 

-0.0243 

+1.716E-07 

-9.050E-09 

+1.208E-08 

0.0004 

rtc6 

*0* 

y 

- 

-0.0254 

-9.050E-09 

+1.803E-07 

-2.972E-08 

0.0004 

z 

-0.0768 

+1.208E-08 

-2.972E-08 

+1.762E-07 

0.0004 
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35min  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 

TRIANGULATED  OBJECT  POINTS 


Ident 

Position  (meters) 

Covariance  Matrix 

Std  Dev  (m) 

X 

0.0254 

+2.146E-07 

-2.335E-08 

+2.792E-08 

0.0005 

rtc8 

*0*  y 

= 

0.0248 

-2.335E-08 

+1.945E-07 

-2.030E-08 

0.0004 

Z 

= 

-0.0768 

+2.792E-08 

-2.030E-08 

+1.982E-07 

0.0004 

X 

0.3598 

+5.951E-07 

-1.162E-07 

+1.476E-07 

0.0008 

mtarOl 

y 

= 

0.3080 

-1.162E-07 

+9.873E-07 

-3.053E-07 

0.0010 

z 

= 

0.0551 

+1.476E-07 

-3.053E-07 

+6.109E-07 

0.0008 

X 

0.4105 

+6.704E-07 

-1.140E-07 

+1.567E-07 

0.0008 

mtarOS 

y 

0.3786 

-1.140E-07 

+1.149E-06 

-2.941E-07 

0.0011 

z 

= 

0.1055 

+1.567E-07 

-2.941E-07 

+6.479E-07 

0.0008 

X 

0.3653 

+5.319E-07 

+2.035E-08 

+1.078E-07 

0.0007 

mtarOS 

y 

= 

0.3201 

+2.035E-08 

+6.211E-07 

-7.385E-08 

0.0008 

z 

= 

0.0672 

+1.078E-07 

-7.385E-08 

+4.183E-07 

0.0006 

X 

0.4159 

+4.996E-07 

+8.401E-08 

+9.004E-08 

0.0007 

mtarO? 

y 

0.3921 

+8.401E-08 

+6.815E-07 

+9.648E-09 

0.0008 

z 

= 

0.1170 

+9.004E-08 

+9.648E-09 

+3 , 740E-07 

0.0006 

X 

— 

0.3688 

+8.512E-07 

+1.766E-07 

+2.885E-07 

0.0009 

mtarOS 

y 

= 

0.4555 

+1.766E-07 

+7.038E-07 

+1.331E-07 

0.0008 

z 

= 

0.0642 

+2.885E-07 

+1.331E-07 

+5.532E-07 

0.0007 

X 

— 

0.4217 

+8.977E-07 

-6.048E-08 

+2.875E-07 

0.0009 

mtar09 

y 

0.3911 

-6.048E-08 

+7.958E-07 

-7.179E-08 

0.0009 

z 

= 

0.0995 

+2.875E-07 

-7.179E-08 

+6.158E-07 

0.0008 

X 

0.4324 

+4.891E-07 

+8.507E-08 

+9.887E-08 

0.0007 

mtarll 

y 

= 

0.3887 

+8.507E-08 

+6.600E-07 

+1.215E-08 

0.0008 

z 

= 

0.0667 

+9.887E-08 

+1.215E-08 

+3.863E-07 

0.0006 

S  U  M  M 

A  R  y 

S  T  A  T  I  S 

TICS  ] 

FOR  OBJECT 

POINT 

RMS 

For  Standard  Deviations 

Count  =  19 

X  = 

0.0017  meters 

Count  =  19 

y  = 

0.0010  meters 

Count  =  19 

z  = 

0.0010  meters 

5DL  GIANT: 

08:47 

05/19/92 

Page  13 

35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN  #  =  LX6422 


CORRECTION 

S 

A  P  P  L  I  E 

D 

TO  O 

EJECT 

CON 

T  R  O  L 

X 

0.0004 

m 

X  = 

-0.0003 

m 

Ifcl 

y 

= 

0.0001 

m 

rtcl 

y  = 

0.0005 

m 

z 

= 

-0.0003 

m 

Z  = 

0.0001 

m 

X 

— 

0.0001 

m 

X  = 

0.0001 

m 

cenl 

y 

= 

0.0002 

m 

lfc2 

y  = 

-0.0002 

m 

z 

=r 

-0.0002 

m 

z  = 

0.0001 

m 
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X 

= 

-0*0002 

m 

X 

= 

rtc2 

Y 

-0.0001 

m 

cen2 

Y 

= 

Z 

= 

0.0000 

m 

Z 

= 

X 

— 

-0.0001 

m 

X 

= 

lfc3 

Y 

0.0001 

m 

rtc3 

Y 

Z 

= 

0.0002 

m 

Z 

zz 

X 

— 

-0.0002 

m 

X 

= 

cen3 

Y 

= 

0.0001 

m 

lfc4 

Y 

= 

Z 

= 

0.0003 

m 

Z 

— 

X 

— 

0.0003 

m 

X 

rtc4 

Y 

-0.0002 

m 

cen4 

Y 

= 

Z 

= 

-0.0006 

m 

Z 

= 

X 

0.0003 

m 

X 

= 

lfc5 

Y 

0.0002 

m 

cen5 

Y 

= 

Z 

= 

0.0000 

m 

Z 

X 

= 

0.0001 

m 

X 

lfc6 

Y 

= 

-0.0001 

m 

rtc6 

Y 

= 

Z 

= 

-0.0003 

m 

Z 

= 

X 

-0.0003 

m 

X 

== 

cen7 

Y 

0.0001 

m 

lfc8 

Y 

Z 

-0.0001 

m 

Z 

X 

= 

0.0000 

m 

X 

= 

rtc8 

Y 

= 

-0.0004 

m 

cen8 

Y 

= 

Z 

= 

-0.0003 

m 

Z 

= 

X 

= 

-0.0003 

m 

X 

a 

Y 

0.0005 

m 

b 

Y 

= 

Z 

= 

0.0001 

m 

Z 

= 

X 

- 

0.0000 

m 

X 

= 

c 

Y 

= 

0.0002 

m 

d 

Y 

= 

Z 

= 

-0.0003 

m 

Z 

— 

X 

-0.0004 

m 

X 

=: 

e 

Y 

-0.0007 

m 

g 

Y 

Z 

= 

0.0005 

m 

Z 

= 

NBDL  GIANT:  08:47  05/19/92 

35mm  Still  Camera  System  For  Initial  Conditions  Of  RUN 


CORRECTION 

s 

APPLIED 

T  0 

OBJ 

EOT 

X  = 

0.0003  m 

X 

h 

Y  = 

-0.0001  m 

i  Y 

Z  = 

0.0003  m 

Z 

= 

X 

....  Number 

of 

Components  = 

28 

RMS  = 

0 

Y 

....  Number 

of 

Components  = 

28 

RMS  = 

0 

Z 

....  Number 

of 

Components  = 

28 

RMS  = 

0 

0.0000  m 
0.0001  m 
0.0002  m 

-0.0003  m 
-0.0006  m 
0.0003  m 

0.0003  m 
-0.0001  m 
-0.0001  m 

0.0001  m 
0.0004  m 
-0.0001  m 

-0.0002  m 
0.0000  m 
0.0001  m 

0.0003  m 
0.0000  m 
-0.0001  m 

0.0004  m 
0.0000  m 
-0.0003  m 

0.0001  m 
-0.0001  m 
0.0000  m 

0.0001  m 
0.0003  m 
0.0001  m 

-0.0004  m 
-0.0005  m 
0.0004  m 

-0.0004  m 
0.0001  m 
0.0001  m 


Page  14 
#  =  LX6422 

CONTROL 

0.0002  m 
0.0001  m 
-0.0003  m 


.0003  meters 
.0003  meters 
.0003  meters 
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Initial  Conditions  Variables  Output  File 


MOUT 

mrcl 

-0.8648E-01 

0.9093E-06 

-0.6112E-07 

0.2316E-06 

mrc2 

"0.1076E+00 

0*9149E-06 

-0.6451E-07 

0.2245E-06 

mrc3 

“0.1077E+00 

0.1180E-05 

-0.1490E-06 

0,8757E-07 

mrc4 

-0,8646E-01 

0.1124E-05 

--0.4158E-06 

0.3245E-06 

mrc5 

-0-9708E-01 

0,9150E-06 

-0.6718E-07 

0.2429E-06 

mrc6 

-0.1192E+00 

0.1112E-05 

-0.3978E-06 

0.3177E-06 

mrc8 

-0*9644E-01 

0.1772E-05 

-0*3121E-06 

0.6742E-06 

mccl 

-0.5581E-01 

0.4963E-06 

-0.8871E-08 

0,7922E-07 

mcc2 

-~0.7629E-01 

0,4924E--06 

-0.7829E--08 

0.7519E-07 

mcc3 

-0.7654E-01 

0.4914E-06 

-0,1173E-07 

0,7500E-07 

mcc4 

-0,5577E-01 

0.4955E-06 

-0.1291E-07 


0.4629E+00 

-0.6112E-07 

0.7139E-06 

-0.1220E-06 

0.4632E+00 

-0.6451E-07 

0,7217E-06 

-0.1228E-06 

0.4877E+00 

-0.1490E-06 

0.6389E-05 

~0.2296E-05 

0.4860E+00 

-0.4158E-06 

0.1481E-05 

~0.4862E-06 

0.4618E+00 

-0.6718E-07 

0.7240E-06 

-0.1321E-06 

0.4632E+00 

-0.3978E~06 

0.1463E-05 

-0.4859E-06 

0.4851E+00 

-0.3121E-06 

0.8256E-06 

-0.1980E~06 

0.5008E+00 

-0,8871E-08 

0.5400E-06 

0.1556E-07 

0,5012E+00 

->0.7829E-08 

0.5429E-06 

0.1690E-07 

0.5244E+00 

-0.1173E-07 

0.5382E-06 

0.2014E-07 

0*5243E+00 

-0.1291E-07 

0.5353E-06 


0.1269E+01 

0.2316E-06 

-0.1220E-06 

0.5972E-06 

0,1279E+01 

0.2245E-06 

-0.1228E-06 

0,5902E-06 

0.1278E+01 

0.8757E-07 

-0,2296E-05 

0,1990E-05 

0.1267E+01 

0.3245E-06 

-0.4862E-06 

0.9088E-06 

0.1247E+01 

0,2429E“06 

-0.1321E-06 

0.6160E-06 

0,1257E+01 

0.3177E-06 

-0.4859E-06 

0.9078E-06 

0.1247E+01 

0.6742E-06 

-0.1980E-06 

0.9296E-06 

0.1320E+01 

0.7922E-07 

0.1556E-07 

0.3653E-06 

0.1331E+01 

0.7519E-07 

0.1690E-07 

0.3583E-06 

0.1330E+01 

0.7500E-07 

0.2014E-07 

0.3569E-06 

0.1319E+01 

0.7911E-07 

0,1879E-07 
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0.7911E-07 

mcc5 

-0.6706E-01 

0.6681E-06 

0.5306E-07 

0,1510E--06 

mcc6 

-0.8913E-01 

0.1128E-05 

^0.4259E-06 

0.2983E-06 

mcc7 

-0.8884E-01 

0.3775E-05 

0.2246E-05 

0.1791E-05 

mcc8 

-0.6609E-01 

0.5921E-06 

-0.4204E~07 

0.1162E-06 

mlcl 

-0.8271E-01 

0.8253E-06 

0.1786E-06 

0.2136E-06 

mlc2 

-0,1051E+00 

0.3976E-05 

0.2308E-05 

0.1999E-05 

mlc3 

-0.1036E+00 

0.1519E-05 

0.2323E-06 

0.5673E-06 

mlc4 

-0.8294E-01 

0.7063E-06 

0.1768E-08 

0.1617E-06 

mlc5 

-0.9514E-01 

0.1533E-05 

0.2380E-06 

0,6140E-06 

mlc7 

-0,1154E+00 

0.8123E-06 

0.1706E-06 

0.2090E-06 

mlc8 

-0.9365E-01 

0.7120E-06 

0,6653E-08 

0.1706E~06 

EOFEOF 

NECK 

nrcl 


0.1879E-07 

0.5015E+00 

0.5306E-07 

0.6056E-~06 

-0.7331E-08 

0.5006E+00 

-0.4259E-06 

0.1499E-05 

-0.4519E-06 

0.5244E+00 

0.2246E-05 

0.2502E-05 

0.1348E-05 

0,5244E+00 

-0,4204E-07 

0.5729E-06 

0.4435E-07 

0.5402E+00 

0.1786E-06 

0.1012E-05 

0.3492E-06 

0.5392E+00 

0.2308E-05 

0.2505E-05 

0.1455E-05 

0,5633E+00 

0.2323E~06 

0.7246E-06 

0,1619E-06 

0.5628E+00 

0.1768E-08 

0.6098E-06 

0,1124E-06 

0.5393E+00 

0.2380E-06 

0.7394E-06 

0.1739E-06 

0.5644E+00 

0.1706E-06 

0.9951E-06 

0.3556E-06 

0.5631E+00 

0.6653E-08 

0,6166E-06 

0.1209E-06 


0.3640E~06 

0.1298E+01 

0.1510E-06 

-0.7331E-08 

0.4541E-06 

0,1309E+01 

0.2983E-06 

-0.4519E-06 

0.8629E-06 

0.1310E+01 

0.1791E-05 

0.1348E-05 

0.1757E-05 

0.1298E+01 

0.1162E-06 

0.4435E-07 

0.4262E-06 

0.1266E+01 

0.2136E-06 

0.3492E-06 

0.7516E-06 

0.1277E+01 

0.1999E-05 

0.1455E-05 

0.1948E-05 

0,1278E+01 

0.5673E-06 

0.1619E-06 

0,8159E-06 

0.1266E+01 

0.1617E-06 

0.1124E-06 

0.5203E-06 

0.1245E+01 

0.6140E-06 

0.1739E-06 

0,8753E-06 

0.1256E+01 

0*2090E-06 

0.3556E-06 

0.7489E-06 

0.1245E+01 

0.1706E-06 

0.1209E-06 

0.5373E-06 
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-0.41  00 

0.47i;6i:-06 
-0.2392E-07 
0.5230E-07 
nrc2 

-0.4169E+00 

0.1217E-05 

-0.5895E-06 

0.3408E-06 

nrc4 

-0.4156E+00 

0.8176E-06 

-0.4946E-07 

0.1461E-06 

nrc5 

-0.3915E+00 

0.4772E-06 

-0,2757E~07 

0.5198E-07 

nrc6 

-0.3926E+00 

0.8046E-06 

-0.5173E-07 

0.1487E-06 

nrc7 

-0.3917E+00 

0.1577E-05 

-0.1488E-06 

0.4309E-06 

nrc8 

~0,3909E+00 

0.4722E-06 

-0.2556E-07 

0.5084E-07 

nccl 

-0.4759E+00 

0.4683E-06 

-0.9856E-08 

0.5362E~07 

ncc2 

--0.4755E+00 

0.1398E-05 

-0.1409E-05 

0*5925E-06 

ncc3 

-0.4757E+00 

0.6341E-06 

0,6131E-07 

-0.1935E-08 

ncc4 

-0.4754E+00 

0.5392E-06 

-0.1542E-06 

0.3631E-07 

-0.4520E+00 

0.4839E-06 

0.5372E-07 

0.4304E-07 


0.4776E+00 

-0.2392E-07 

0.8547E-06 

0.3863E-07 

0.4769E+00 

-0.5895E-06 

0.1903E-05 

-0.6128E-06 

0.5013E+00 

-0.4946E-07 

0.1036E-05 

-0.1327E-06 

0.4771E+00 

-0.2757E-07 

0.8471E-06 

0.3636E-07 

0.4756E+00 

-0.5173E-07 

0.1023E-05 

-0.1439E-06 

0.4999E+00 

-0.1488E-06 

O.llllE-05 

-0.5962E-07 

0.5006E+00 

-0.2556E-07 

0.8426E-06 

0.4789E-07 

0.5038E+00 

-0.9856E-08 

0.8679E-06 

0.5707E-07 

0.5010E+00 

-0.1409E-05 

0.7676E-05 

-0.2836E-05 

0.5315E+00 

0.6131E-07 

0.3477E-05 

0.6309E-06 

0.5278E+00 

-0.1542E-06 

0.1196E-05 

0.4205E-07 

0.5033E+00 

0.5372E-07 

0.1350E-05 

0.1379E-06 


0.1298E+01 

0.5230E-07 

0.3863E-07 

0.4152E-06 

0.1274E+01 

0.3408E-06 

-0.6128E-06 

0.9826E-06 

0.1297E+01 

0.1461E-06 

-0.1327E-06 

0.6077E-06 

0.1297E+01 

0.5198E-07 

0.3636E-07 

0.4142E-06 

0.1273E+01 

0.1487E-06 

-0.1439E-06 

0.6149E-06 

0.1271E+01 

0.4309E-06 

“0.5962E-07 

0.8985E-06 

0.1296E+01 

0.5084E-07 

0.4789E-07 

0.4130E-06 

0.1298E+01 

0.5362E-07 

0.5707E-07 

0.4195E-06 

0.1274E+01 

0.5925E-06 

-0.2836E-05 

0.2213E-05 

0.1274E+01 

-0.1935E-08 

0.6309E-06 

0.9106E-06 

0.1296E+01 

0.3631E-07 

0.4205E-07 

0.4985E-06 

0.1299E+01 

0.4304E-07 

0.1379E-06 

0.5007E-06 
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ncc6 

-0.4518E+00 

0.1357E-05 

-0.1291E-05 

0.5438E-06 

ncc8 

-0.4515E+00 

0.5791E-06 

0.2720E-06 

0.8541E-07 

nlcl 

-0.4154E+00 

0.8009E-06 

0.3342E-06 

0.2306E-06 

nlc3 

-0.4166E+00 

0.7915E-06 

0.3223E~06 

0.2375E-06 

nlc4 

^0.4155E+00 

0.6030E-06 

0,1010E-06 

0.1146E-~06 

nlc5 

-0.3912E+00 

0.4724E-06 

0.6826E-07 

0.6348E-07 

nlc6 

-0.3909E+00 

0.1766E-05 

0,3526E-06 

0.5265E-06 

nlc7 

-0.3922E+00 

0.6131E-06 

0,9385E-07 

0.1188E-06 

nlc8 

-0.3915E+00 

0.4680E-06 

0.6728E-07 

0*6385E~07 

EOFEOF 

EOFEOF 


0.4986E+00 

-0.1291E-05 

0.7511E-05 

-0.2769E-05 

0.5268E+00 

0.2720E-06 

0.1927E-05 

0.3870E-06 

0.5561E+00 

0.3342E~06 

0.1309E-05 

0.4913E~06 

0.5774E+00 

0.3223E-06 

0.1274E-05 

0,5088E-06 

0.5776E+00 

O.lOlOE-06 

0.9140E-06 

0.2391E-06 

0.5542E+00 

0.6826E-07 

0.8051E-06 

0.1057E-06 

0,5528E+00 

0.3526E-06 

O.llOlE-05 

0.1662E-06 

0.5773E+00 

0.9385E-07 

0.9022E~‘06 

0.2410E-06 

0.5776E+00 

0.6728E-07 

0.7895E-06 

0.1145E-06 


0.1275E+01 

0.5438E-06 

-0.2769E-05 

0.2177E-05 

0.1297E+01 

0.8541E-07 

0.3870E-06 

0.6536E-06 

0.1294E+01 

0.2306E-06 

0.4913E-06 

0.7726E-06 

0,1268E+01 

0,2375E-06 

0.5088E-06 

0.8008E-06 

0,1292E+01 

0.1146E-06 

0,2391E-06 

0.5483E-06 

0.1293E+01 

0.6348E-07 

0.1057E-06 

0.4162E-06 

0.1270E+01 

0,5265E-06 

0,1662E-06 

0.9276E-06 

0.1267E+01 

0.1188E-06 

0.2410E-06 

0.5648E-06 

0.1291E+01 

0.6385E-07 

0,1145E-06 

0.4159E-06 
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Head  Anthropometry  Output  File 

NBDL  GIANT:  09:17  10/13/92  Page  1 

35mm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

Object  Space  Reference  System  is  Rectangular 
Rotation  angles  are  Terrestrial  Object-to-Photo 
Complete  Triangulation  process  is  recjuested 
Error  Propagation  is  requested 
[Variance/Covariance  output] 

Unit  Variance  will  be  based  on  completely  free  camera  parameters 
All  Image  Residuals  will  be  listed 
Triangulated  Object  Coordinates  will  be  saved 
Adjusted  Camera  Station  Parameters  will  be  saved 

NBDL  GIANT;  09:17  10/13/92  Page  2 

35mm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

ERROR  WARNINGS 

POINTS  NOT  PHOTOGRAPHED 
mrc7  mlc6 

PASS  POINTS  APPEARING  ON  1  PHOTO 

j  k  *  a  *  j 

*  rtc5  lfc7  *  b  rtc7 

*  cenl  *  If cl  *  lfc3  *  lfc7 

NBDL  GIANT;  09; 17  10/13/92  Page  3 

35mm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

CAMERA  STATIONS  CORRECTIONS 

- POSITION -  - ATTITUDE - 

X  Y  Z  Az  im .  E  lev .  Swing 

Iteration  1 
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#1 

-0.0037 

0.0023 

-0.0120 

#2 

-0.0128 

0.0011 

-0.0112 

#3 

-0.0116 

0.0032 

-0.0095 

#4 

-0.0070 

0.0022 

-0.0092 

#5 

-0.0002 

0.0021 

-0.0046 

#6 

0.0098 

0.0038 

-0.0001 

Provisional  Weighted  Sum 


m. 

-0.004066 

0.008765 

0.015261 

m. 

-0.009281 

0.007311 

0.009436 

m. 

-0.011792 

0.001311 

-0.000853 

m. 

-0.009982 

-0.003119 

-0.007529 

m. 

-0.002934 

-0.005424 

-0.013494 

m* 

0.006825 

0.000337 

-0.009053 

of 

Squares  =  210.083 

NBDL  GIANT:  09:17  10/13/92 

35mm  Still  Camera  System  for  Head  Anthropometry  of 


T  R  I  A  N  G 

U  L  A  T  E  D 

I  M  . 

AGE  P  0 

I  N  T  S 

R 

(in 

micrometers) 

a 

#1 

#3 

#4 

-2 

5 

-5 

2 

0 

-1 

rtcl 

#2 

#1 

#3 

#4 

#6 

-3 

6 

-24 

9 

-10 

-24 

23 

10 

25 

-32 

rtc2 

#2 

#3 

#1 

#4 

#6 

-2 

-47 

-42 

10 

-57 

8 

8 

28 

-17 

-24 

rtc3 

#1 

#2 

#3 

#4 

#6 

-1 

-18 

19 

24 

-11 

-17 

-5 

3 

-11 

34 

rtc4 

#2 

#1 

#3 

#4 

#6 

13 

-9 

21 

-12 

1 

9 

-22 

4 

1 

13 

rtc5 

#1 

#3 

#4 

-3 

-5 

3 

13 

-62 

50 

rtc6 

#2 

#3 

#1 

-48 

50 

29 

-19 

29 

-5 

earl-r 

#2 

#3 

#4 

#5 

#1 

67 

-32 

-27 

54 

-10 

-15 

-27 

17 

10 

20 

ear2-r 

#2 

#3 

#1 

#4 

#5 

52 

-18 

-29 

-19 

13 

6 

5 

0 

-17 

12 

ear3-r 

#2 

#1 

#3 

#4 

40 

-23 

-19 

-1 

-7 

3 

-10 

19 

ear4-r 

#2 

#3 

#1 

#4 

31 

-11 

-11 

3 
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-18 

-3 

-7 

30 

mrcl  *0* 

#3 

#1 

#2 

#4 

2 

24 

16 

-52 

-40 

11 

2 

-46 

mrc2  *0* 

#2 

#3 

#4 

#1 

75 

-5 

-22 

93 

37 

-3 

-14 

23 
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35mm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  IMAGE  POINTS  RESIDUALS 

(in  micrometers) 

mrc3  *0*  #1  #2 

37  1 

-14  -3 


mrc4  *0*  #1 

95 
-17 


mrc5  *0* 

#1 

#3 

#2 

#4 

8 

-1 

-8 

-17 

15 

-51 

32 

-56 

mrc6  *0* 

#3 

#1 

#2 

55 

24 

-3 

14 

3 

-24 

mccl  *0* 

#2 

#3 

#4 

#5 

#1 

#6 

-13 

0 

-17 

5 

-13 

47 

25 

45 

21 

23 

20 

-41 

mcc2  *0* 

#1 

#3 

#2 

#4 

#5 

#6 

-40 

18 

-28 

44 

71 

113 

4 

45 

76 

85 

45 

-25 

mcc3  *0* 

#3 

#1 

#4 

#5 

#2 

#6 

26 

-64 

67 

44 

-64 

-51 

50 

23 

67 

1 

-14 

28 

mcc4  *0* 

#1 

#3 

#2 

#4 

#5 

#6 

-17 

86 

5 

39 

-10 

8 

-62 

75 

4 

21 

-16 

-9 

mcc5  *0* 

#3 

#2 

#1 

#4 

#5 

-40 

-58 

-49 

-18 

32 

17 

-20 

-20 

-10 

-2 

b 

#4 

#2 

#3 

#5 

-10 

43 

-33 

25 

23 

-35 

-4 

14 
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c 

#3 

#2 

#5 

65 

-59 

-39 

-16 

24 

-9 

d 

#4 

#2 

#5 

52 

-34 

-41 

-7 

9 

2 

rtc8 

#4 

#3 

#2 

28 

31 

-71 

0 

19 

-32 
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TRIANGULATED  IMAGE  POINTS  RESI 

(in  micrometers) 


cenl 

#2 

#4 

#5 

#3 

31 

-13 

18 

-16 

-18 

13 

7 

-4 

cen3 

#4 

#5 

#2 

#6 

27 

-20 

21 

23 

-35 

-16 

0 

28 

cen4 

#5 

#2 

#4 

#6 

10 

47 

0 

25 

-27 

-7 

-43 

43 

cen5 

#2 

#4 

#5 

2 

-1 

-2 

-9 

26 

-14 

cen8 

#5 

#2 

#4 

#6 

-20 

47 

-10 

18 

8 

-19 

32 

-16 

lfc5 

#3 

#4 

#5 

#2 

-4 

-19 

11 

14 

-22 

3 

-5 

30 

lfc6 

#2 

#3 

3 

1 

-15 

15 

ron 

#4 

#2 

#3 

7 

13 

-7 

17 

-26 

6 

mrc8  *0* 

#4 

#3 

#2 

-7 

0 

-48 

-23 

6 

97 

g 

#3 

#4 

1 

0 
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28 

-28 

h 

#4 

#3 

-1 

0 

1 

-1 

Ifcl 

#5 

#4 

y' 

6 

-11 

11 

23 

-16 

-12 

lfc2 

#5 

#3 

#4 

#6 

-16 

5 

12 

7 

11 

-30 

17 

-2 
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35min  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  IMAGE  POINTS  RESIDUALS 

( in  micrometers ) 


lfc3 

#5 

#4 

#3 

12 

-26 

24 

28 

-15 

-23 

lfc4 

#4 

#5 

#3 

#6 

-49 

24 

14 

-9 

6 

-3 

16 

-8 

lfc8 

#4 

#5 

#6 

#3 

-58 

-9 

-19 

1 

42 

36 

-60 

41 

Ion 

#5 

#4 

#3 

1 

-10 

5 

-13 

11 

1 

earl-1 

#5 

#6 

#4 

#3 

24 

-47 

2 

-64 

9 

-IS 

13 

1 

ear2-l 

#5 

#4 

#6 

#3 

-1 

23 

-17 

-40 

10 

16 

-9 

-13 

ear3-l 

#5 

#4 

#3 

#6 

17 

3 

-56 

-41 

0 

30 

-1 

-22 

ear4-l 

#5 

#4 

#3 

#6 

2  0 

13 

-52 

-34 

5 

7 

-3 

-5 

mcc6  *0* 

#3 

-6 

38 
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mcc8  *0* 

#5 

#4 

#3 

#6 

-4 

20 

61 

35 

-14 

-12 

20 

-13 

mlc3  *0* 

#4 

#3 

#5 

#6 

12 

-6 

-9 

-8 

-40 

-46 

8 

0 

inlc4  *0* 

#5 

#4 

#3 

#6 

-41 

-1 

35 

-5 

-27 

-62 

-62 

2 

mlc5  *0* 

#5 

#4 

#3 

-73 

-48 

-40 

45 

-58 

-2 

NBDL  GIANT:  09:17 

10/13/92 

35mm  Still  Camera  System 

for 

Head  Anthropometry  of 

HRV  # 

T  R  I  A  N  G  U 

L  A  T  E  D 

I  N 

[AGE 

POINTS 

R  E  S  I 

(in 

micrometers ) 

mlc8  *0* 

#4 

#3 

#5  #6 

-2 

6 

-63  15 

-70 

-29 

-72  61 

f 

#4 

#5 

-2 

0 

1 

0 

cen2 

#5 

#6 

#4 

-11 

16 

33 

-21 

40 

-49 

mcc7  *0* 

#5 

#4 

74 

54 

-30 

52 

mlcl  *0* 

#4 

#6 

#5 

-39 

67 

-58 

-9 

6 

0 

mlc7  *0* 

#4 

#5 

#6 

-43 

-58 

-21 

0 

-32 

5 

mlc2  *0* 

#5 

-17 

11 

Weighted 

Sum 

of 

Squares 

(Camera)  = 

13.4 

Weighted 

Sum 

of 

Squares 

(Object)  = 

5.9 

Weighted 

Sum 

of 

Squares 

(Plates)  = 

138.1 

Weighted 

Sum 

of 

Squares 

(Total)  = 

157.5 
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Degrees  of  Freedom .  =  281 

a  posteriori  Variance  of  Unit  Weight  =  0.561 
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TRIANGULATED  CAMERA  STATIONS 

( Terrestr ial->Ph ) 

Ident  Position/Attitude  Covariance  Matrix 

X  =  -0.2187  m.  +2.893E-05  -5.079E-07  +3.698E-06 

#1  Y  =  -1.2937  m.  -5.079E-07  +1.430E-05  -5.242E-06 

Z  =  -0.7160  m.  +3.698E-06  -5.242E-06  +2.392E-05 

Azim.  =  12  56  44.6550  +1.448E-05  -2.413E-06  -4.987E-06 

Elev.  =  21  48  39.6688  -2.413E-06  +1.448E-05  -4.987E-06 

Swing  =  114  40  31.2480  -4.987E-06  -4.987E-06  +1.477E-05 

X  =  -0.6938  m.  +1.718E-05  -9.827E-07  -7.527E-07 

#2  Y  =  -1.3639  m.  -9.827E-07  +1.625E-05  +5.055E-06 

Z  =  0.2228  m.  -7.527E-07  +5.055E-06  +1.695E-05 

Azim.  =  28  46  12.0780  +7.090E-06  +1.332E-06  +1.180E-06 

Elev.  =-  14  33  15.9342  +1.332E-06  +7.090E-06  +1.180E-06 

Swing  =  124  05  54.9347  +1.180E-06  +1.180E-06  +9.408E-06 

X  =  -0.8926  m.  +9.775E-06  -1.612E-07  +2.053E-07 

#3  Y  =  -0.5198  m.  -1.612E-07  +9.656E-06  +4.694E-07 

Z  =  0.7245  m.  +2.053E-07  +4.694E-07  +8.215E-06 

Azim.  =  64  58  22.8413  +5.695E-06  +3.802E-07  -2.040E-07 

Elev.  =-  44  39  22.8442  +3.802E-07  +5.695E-06  -2.040E-07 

Swing  =  157  11  4.8682  -2.040E-07  -2.040E-07  +8.996E-06 

X  =  -0.8770  m.  +7.769E-06  -3.785E-08  +3.781E-07 

#4  Y  =  0.1582  m.  -3.785E-08  +8.131E-06  -3.584E-07 

Z  =  0.7408  m.  +3.781E-07  -3.584E-07  +7.453E-06 

Azim.  =  95  06  10.2226  +5.611E-06  +2.523E-07  -8.249E-08 

Elev.  =-  45  59  37.3703  +2.523E-07  +5.611E-06  -8.249E-08 

Swing  =-177  52  29.6638  -8.249E-08  -8.249E-08  +9.655E-06 

X  =  -0.6692  m.  +1.176E-05  +9.495E-07  +8.579E-07 

#5  Y  =  0.9961  m.  +9.495E-07  +1.332E-05  -2.766E-06 

Z  =  0.3324  m.  +8.579E-07  -2.766E-06  +1.163E-05 

Azim.  =  137  54  42.4899  +8.145E-06  -7.442E-07  -5.724E-07 

Elev.  =-  26  20  27.0130  -7.442E-07  +8.145E-06  -5.724E-07 

Swing  =-135  38  8.4042  -5.724E-07  -5.724E-07  +1.055E-05 

X  =  -0.2072  m.  +9.331E-06  +7.847E-08  -1.787E-06 

#6  Y  =  0.9988  m.  +7.847E-08  +6.603E-06  -4.572E-07 

Z  =  -0.5681  m.  -1.787E-06  -4.572E-07  +1.008E-05 

Azim.  =  164  01  58.1799  +6.987E-06  -1.267E-06  -1.007E-06 

Elev.  =  16  05  1.2088  -1.267E-06  +6.987E-06  -1.007E-06 

Swing  =-111  34  39.0138  -1.007E-06  -1.007E-06  +7.405E-06 
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SUMMARY  STATISTICS  FOR  CAMERA  STATIONS 

RMS  For  Standard  Deviations 

X  =  0.0038  m.  Azim.  =  00  09  43.4565 

Count  =6  Y  =  0.0034  m.  Elev.  =  00  11  26.0755 

Z  =  0.0036  m.  Swing  =  00  10  56.5213 


NBDL  GIANT:  09:17  10/13/92 

35mm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  OBJECT  POINTS 


I  dent 

a 


b 


c 


d 


f 


Ion 


ron 


cenl 


cen2 


cen3 


Position  (meters)  Covariance  Matrix  Std  Dev  (m) 

X  =  0.0324  +3.124E-06  -3.583E-07  -7.127E-07  0.0018 

Y  =  -0.0593  -3.583E-07  +2.895E-06  +1.427E-07  0.0017 

Z  =  -0.6096  -7.127E-07  +1.427E-07  +2.597E-06  0.0016 

X  =  0.0433  +2.916E-06  -7.169E-08  -7.855E-07  0.0017 

Y  =  0.0940  -7.169E-08  +2.714E-06  -4.694E-08  0.0016 

Z  =  -0.6061  -7.855E-07  -4.694E-08  +2.745E-06  0.0017 

X  =  0.3055  +3.274E-06  +2.198E-07  -8.627E-07  0.0018 

Y  =  -0.0671  +2.198E-07  +2.632E-06  -3.183E-07  0.0016 

Z  =  -0.4791  -8.627E-07  -3.183E-07  +2.870E-06  0.0017 

X  =  0.3069  +3.358E-06  -1.059E-07  -1.023E-06  0.0018 

Y  =  0.0869  -1.059E-07  +2.528E-06  +4.636E-08  0.0016 

Z  =  -0.4758  -1.023E-06  +4.636E-08  +2.962E-06  0.0017 

X  =  0.3498  +5.384E-06  -1.095E-06  -2.368E-06  0.0023 

Y  =  0.2866  -1.095E-06  +2.267E-06  +7.869E-07  0.0015 

Z  =  -0.2119  -2.368E-06  +7.869E-07  +3.278E-06  0.0018 

X  =  -0.0109  +8.230E-07  -1.097E-07  -4.178E-07  0.0009 

Y  =  0.0409  -1.097E-07  +4.692E-07  +7.710E-08  0.0007 

Z  =  -0.0856  -4.178E-07  +7.710E-08  +6.973E-07  0.0008 

X  =  -0.0134  +1.067E-06  +2.586E-07  -6.071E-07  0.0010 

Y  =  -0.0256  +2.586E-07  +5.706E-07  -2.152E-07  0.0008 

Z  =  -0.0856  -6.071E-07  -2.152E-07  +9.157E-07  0.0010 

X  =  0.1108  +2.326E-06  -1.259E-08  -6.995E-07  0.0015 

Y  =  0.1857  -1.259E-08  +2.020E-06  -1.671E-08  0.0014 

Z  =  -0.4690  -6.995E-07  -1.671E-08  +2.171E-06  0.0015 

X  =  0.1308  +2.350E-06  -3.573E-07  -4.329E-07  0.0015 

Y  =  0.1897  -3.573E-07  +2.701E-06  +1.774E-07  0.0016 

Z  =  -0.5119  -4.329E-07  +1.774E-07  +1.986E-06  0.0014 

X  =  0.1318  +2.302E-06  -1.874E-07  -4.092E-07  0.0015 

Y  =  0.2405  -1.874E-07  +2.565E-06  +7.776E-08  0.0016 

Z  =  -0.5091  -4.092E-07  +7.776E-08  +2.025E-06  0.0014 

X  =  0.1110  +2.000E-06  -1.568E-07  -3.724E-07  0.0014 
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cen4 

Y  = 

0.2367 

-1.568E-07 

+2.259E-06 

+3.259E-08 

0.0015 

Z  = 

-0.4646 

-3.724E-07 

+3.259E-08 

+1.779E-06 

0.0013 

X  = 

0.1558 

+2.555E-06 

-1.753E-07 

-8.167E-07 

0.0016 

cen5 

Y  = 

0.1834 

-1.753E-07 

+2.159E-06 

+1.560E-07 

0.0015 

Z  = 

-0.4458 

-8.167E-07 

+1.560E-07 

+2.351E-06 

0.0015 

X  = 

0.1566 

+1.978E-06 

-1.953E-07 

-3.173E-07 

0.0014 

cen8 

Y  = 

0.2344 

-1.953E-07 

+2.136E-06 

+1.159E-08 

0.0015 

Z  = 

-0.4425 

-3.173E-07 

+1.159E-08 

+1.696E-06 

0.0013 

NBDL  GIANT 

:  09:17  10/13/92 

Page  11 

35mm  Still  Camera 

System  for 

Head  Anthropometry  of 

HRV  # 

=  0253 

T  F 

t  I  A 

N  G  U  L  A 

TED  OB 

J  E  C  T  ] 

POINTS 

Ident 

Position 

1  (meters) 

Covariance  Matrix 

Std  Dev  (m 

X 

0.1102 

+3.170E-06 

-7.730E-08 

-1.314E-06 

0.0018 

Ifcl 

Y 

= 

0.3391 

-7.730E-08 

+2.378E-06 

+1.202E-07 

0.0015 

Z 

= 

-0.4580 

-1.314E-06 

+1.202E-07 

+3.284E-06 

0.0018 

X 

= 

0.1312 

+2.573E-06 

-1.361E-07 

-5.076E-07 

0.0016 

lfc2 

Y 

= 

0.3420 

-1.361E-07 

+2.635E-06 

+5.898E-08 

0.0016 

Z 

= 

-0.5027 

-5.076E-07 

+5.898E-08 

+2.368E-06 

0.0015 

X 

— 

0.1325 

+3.793E-06 

-4.265E-08 

-1.579E-06 

0.0019 

lfc3 

Y 

0.3909 

-4.265E-08 

+2.833E-06 

+1.151E-07 

0.0017 

Z 

= 

-0.5017 

-1.579E-06 

+1.151E-07 

+4.006E-06 

0.0020 

X 

0.1102 

+2.433E-06 

-7.554E-08 

-5.062E-07 

0.0016 

lfc4 

Y 

= 

0.3892 

-7.554E-08 

+2.449E-06 

-3.214E-08 

0.0016 

Z 

-0.4549 

-5.062E-07 

-3.214E-08 

+2.329E-06 

0.0015 

X 

0.1557 

+2.750E-06 

+7.287E-08 

-8.866E-07 

0.0017 

lfc5 

Y 

= 

0.3375 

+7.287E-08 

+2.267E-06 

-4.266E-08 

0.0015 

Z 

— 

-0.4361 

-8.866E-07 

-4.266E-08 

+2.649E-06 

0.0016 

X 

0.1766 

+8.240E-06 

+6.098E-06 

-5.662E-06 

0.0029 

lfc6 

Y 

= 

0.3385 

+6.098E-06 

+1.049E-05 

-6.343E-06 

0.0032 

Z 

= 

-0.4782 

-5.662E-06 

-6.343E-06 

+8.561E-06 

0.0029 

X 

z: 

0.1551 

+2.412E-06 

-1.240E-07 

-4.319E-07 

0.0016 

lfc8 

Y 

= 

0.3872 

-1.240E-07 

+2.305E-06 

-5.033E-08 

0.0015 

Z 

= 

-0.4330 

-4.319E-07 

-5.033E-08 

+2.215E-06 

0.0015 

X 

-0.0320 

+3.044E-08 

-8.260E-11 

-8.990E-10 

0.0002 

mccl 

*0*  Y 

-0.0084 

-8.260E-11 

+3.151E-08 

-1.829E-10 

0.0002 

Z 

= 

0.0047 

-8.990E-10 

-1.829E-10 

+3.023E-08 

0.0002 

X 

= 

-0.0320 

+3.044E-08 

-9.430E-11 

-9.290E-10 

0.0002 

mcc2 

*Q*  y 

= 

-0.0085 

-9.430E-11 

+3.157E-08 

-1.729E-10 

0.0002 

Z 

= 

-0.0214 

-9.290E-10 

-1.729E-10 

+3.030E-08 

0.0002 

X 

5= 

-0.0319 

+3.040E-08 

-1.180E-10 

-9.309E-10 

0.0002 

mcc3 

*0*  Y 

= 

0.0174 

-1.180E-10 

+3.157E-08 

-1.993E-10 

0.0002 

Z 

= 

-0.0216 

-9.309E-10 

-1.993E-10 

+3.029E-08 

0.0002 
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X 

= 

-0.0320 

+3.040E-08 

-1.048E-10 

-8.932E-10 

0.0002 

mcc4 

Y 

0.0174 

-1.048E-10 

+3.150E-08 

-2.313E-10 

0.0002 

Z 

0.0046 

-8.932E-10 

-2.313E-10 

+3.022E-08 

0.0002 

X 

— 

-0.0064 

+3.155E-08 

+4.584E-11 

-1.148E-09 

0.0002 

mcc5 

*0* 

Y 

-0.0083 

+4.584E-11 

+3.181E-08 

+3.130E-10 

0.0002 

Z 

= 

0.0047 

-1.148E-09 

+3.130E-10 

+3.097E-08 

0.0002 

X 

= 

-0.0063 

+3.436E-08 

+3.521E-10 

-5.350E-10 

0.0002 

incc6 

*0* 

Y 

-0.0084 

+3.521E-10 

+3.396E-08 

-3.236E-10 

0.0002 

Z 

= 

-0.0217 

-5.350E-10 

-3.236E-10 

+3.419E-08 

0.0002 

NBDL  GIANT;  09:17  10/13/92  Page  12 

35nim  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  OBJECT  POINTS 

Ident  Position  (meters)  Covariance  Matrix  Std  Dev  (m) 


X 

-0.0064 

+3.345E-08 

-6.711E-10 

-8,623E-10 

0.0002 

mcc7 

*0* 

Y 

= 

0.0174 

-6.711E-10 

+3.312E-08 

+4.343E-10 

0.0002 

Z 

= 

-0.0216 

-8.623E-10 

+4.343E-10 

+3.301E-08 

0.0002 

X 

-0.0064 

+3,158E-08 

-4,633E-10 

-1.032E-09 

0.0002 

mcc8 

*0* 

Y 

= 

0.0175 

-4.633E-10 

+3.177E-08 

-4.414E-10 

0.0002 

Z 

= 

0.0046 

-1.032E-09 

-4.414E-10 

+3.117E-08 

0.0002 

X 

0.0298 

+3,224E-08 

-8.427E-10 

-6.180E-10 

0.0002 

mlcl 

*0* 

Y 

= 

0.0316 

-8.427E-10 

+3.270E-08 

-2.143E-10 

0.0002 

z 

= 

0.0051 

-6.180E-10 

-2.143E-10 

+3.187E-08 

0.0002 

X 

0.0298 

+3.412E-08 

-5.846E-10 

-2.080E-10 

0.0002 

mlc2 

★0* 

Y 

= 

0.0315 

-5.846E-10 

+3.449E-08 

+3.164E-10 

0.0002 

Z 

= 

-0.0205 

-2.080E-10 

+3,164E-10 

+3.377E-08 

0.0002 

X 

0.0298 

+3.176E-08 

-4.666E-10 

-9.084E-10 

0.0002 

mlc3 

*0* 

Y 

= 

0.0571 

-4.666E-10 

+3.193E-08 

-4.660E-10 

0.0002 

Z 

= 

-0.0205 

-9.084E-10 

-4.660E-10 

+3,136E-08 

0.0002 

X 

0.0297 

+3.175E-08 

-4.734E-10 

-9.252E-10 

0.0002 

mlc4 

*0* 

Y 

= 

0.0570 

-4.734E-10 

+3.185E-08 

-5.009E-10 

0.0002 

Z 

= 

0.0049 

-9.252E-10 

-5.009E-10 

+3.126E-08 

0.0002 

X 

0.0548 

+3.311E-08 

-3.030E-10 

-1.195E-09 

0.0002 

mlc5 

Y 

= 

0,0316 

-3.030E-10 

+3.230E-08 

+7.522E-11 

0.0002 

Z 

= 

0,0050 

-l,195E-09 

+7.522E-11 

+3.230E-08 

0.0002 

X 

0,0548 

+3.239E-08 

-7.849E-10 

-5.438E-10 

0.0002 

mlc7 

Y 

= 

0.0571 

-7,849E-10 

+3.279E-08 

-2.320E-10 

0.0002 

Z 

= 

-0.0205 

-5.438E-10 

-2.320E-10 

+3.204E-08 

0.0002 

X 

z= 

0,0548 

+3.191E-08 

-4.740E-10 

-8.788E-10 

0.0002 

mlc8 

*0* 

Y 

= 

0.0571 

-4.740E-10 

+3.195E-08 

-4.772E-10 

0.0002 

Z 

= 

0.0050 

-8.788E-10 

-4.772E-10 

+3.140E-08 

0.0002 

X 

0.0295 

+3.247E-08 

+5,335E-10 

-1.008E-09 

0.0002 

mrcl 

*0* 

Y 

= 

-0.0481 

+5.335E-10 

+3.230E-08 

+1.241E-10 

0.0002 
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Z 

= 

0.0045 

-1.008E-09 

+1.241E-10 

+3.206E-08 

0.0002 

X 

0.0296 

+3.248E-08 

+5.214E-10 

-9.715E-10 

0.0002 

mrc2 

*0* 

y 

= 

-0.0481 

+5.214E-10 

+3.237E-08 

+9.889E-11 

0,0002 

z 

= 

-0.0204 

-9.715E-10 

+9.889E-11 

+3.214E-08 

0.0002 

X 

= 

0.0295 

+3.352E-08 

+4.497E-10 

+1.193E-11 

0.0002 

mrc3 

y 

= 

-0.0237 

+4.497E-10 

+3.461E-08 

+2.461E-10 

0,0002 

z 

= 

-0,0203 

+1.193E-11 

+2.461E-10 

+3.352E-08 

0.0002 

X 

0.0295 

+3.415E-08 

+1,281E-10 

+7.458E-11 

0.0002 

mrc4 

*0* 

y 

= 

-0.0237 

+1.281E-10 

+3.480E-08 

+3.775E-10 

0.0002 

z 

= 

0.0045 

+7.458E-11 

+3.775E-10 

+3.433E-08 

0.0002 

NBDL  GIANT: 

09:1'; 

'  10/13/92 

Page  13 

35mm  Still  Camera 

System  for 

Head  Anthropometry  of 

HRV  # 

=  0253 

T  F 

i  I  A 

N  G  U  L  A 

TED  OB 

J  E  C  T  ] 

POINTS 

I  dent 

Position  (meters) 

Covariance  Matrix 

Std  Dev  (m 

X 

= 

0.0549 

+3.259E-08 

+5.252E-10 

-9.521E-10 

0.0002 

mrc5 

*0*  y 

= 

-0.0481 

+5.252E-10 

+3.239E-08 

+1.225E-10 

0.0002 

Z 

= 

0.0045 

-9.521E-10 

+1.225E-10 

+3.217E-08 

0.0002 

X 

— 

0.0549 

+3.306E-08 

+7.095E-10 

-4.301E-10 

0.0002 

mrc6 

*0*  y 

= 

-0.0482 

+7.095E-10 

+3.358E-08 

-2.567E-11 

0.0002 

z 

= 

-0.0203 

-4.301E-10 

-2.567E-11 

+3.285E-08 

0.0002 

X 

= 

0.0549 

+3.333E-08 

+4.665E-10 

-1.126E-09 

0.0002 

mrc8 

*0*  y 

= 

-0.0238 

+4.665E-10 

+3.257E-08 

-2.258E-10 

0.0002 

z 

= 

0.0046 

-1.126E-09 

-2.258E-10 

+3.268E-08 

0.0002 

X 

sr 

0.2427 

+1.416E-06 

+5.186E-08 

-4.416E-08 

0.0012 

rtcl 

y 

= 

-0.2610 

+5.186E-08 

+1.498E-06 

-8.627E-08 

0.0012 

z 

= 

-0.2899 

-4.416E-08 

-8.627E-08 

+1.364E-06 

0.0012 

X 

0.2655 

+1.645E-06 

+3.787E-08 

-3.115E-08 

0.0013 

rtc2 

y 

= 

-0.2598 

+3.787E-08 

+1.731E-06 

-1.063E-07 

0.0013 

z 

= 

-0.3364 

-3.115E-08 

-1.063E-07 

+1.546E-06 

0.0012 

X 

0.2670 

tl.540E-06 

+2.198E-08 

-2.060E-08 

0.0012 

rtc3 

y 

= 

-0.2098 

+2.198E-08 

+l,645E-06 

-1.063E-07 

0.0013 

z 

= 

-0.3358 

-2.060E-08 

-1.063E-07 

+1.414E-06 

0.0012 

X 

0.2446 

+1.311E-06 

+3.896E-08 

-3.290E-08 

0.0011 

rtc4 

y 

= 

-0.2103 

+3.896E-08 

+1.410E-06 

-8.941E-08 

0.0012 

z 

= 

-0.2894 

-3.290E-08 

-8.941E-08 

+1.233E-06 

0.0011 

X 

= 

0.2899 

+1.776E-06 

+9.493E-08 

-1.403E-07 

0.0013 

rtc5 

y 

= 

-0.2617 

+9.493E-08 

+1.698E-06 

+3.421E-08 

0.0013 

z 

= 

-0.2681 

-1.403E-07 

+3.421E-08 

+1.822E-06 

0.0013 

X 

= 

0.3112 

+2.191E-06 

+5.082E-07 

-5.069E-08 

0.0015 

rtc6 

y 

= 

-0.2623 

+5.082E-07 

+2.333E-06 

-1.647E-07 

0.0015 

z 

= 

-0.3133 

-5.069E-08 

-1.647E-07 

•fl.855E-06 

0.0014 
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X  = 

0.2937 

+1.629E-06 

+2,014E-08 

“1.823E“07 

0.0013 

rtc8 

Y  = 

“0.2114 

+2.014E-08 

+1.537E-06 

“1.577E-07 

0.0012 

Z  = 

“0.2681 

“1.823E-07 

“1.577E-07 

+1.532E-06 

0.0012 

X  = 

0.0831 

+5.635E-07 

-4.894E-08 

-9.703E-08 

0.0008 

earl-l 

y  = 

0.1796 

-4.894E-08 

+5.613E-07 

“7.388E“08 

0.0007 

z  = 

-0.0902 

“9,703E“08 

“7.388E-08 

+5.144E-07 

0.0007 

X  = 

0.0725 

+5.881E-07 

+1.725E-08 

“1.153E“07 

0.0008 

earl-r 

y  = 

“0.1730 

+1.725E“08 

+6.106E-07 

+3.589E-08 

0.0008 

z  = 

“0.1123 

“1.153E-07 

+3.589E“08 

+5,572E“07 

0.0007 

X  = 

0.0752 

+5.426E-07 

“5.162E-08 

-1.011E“07 

0.0007 

ear2-l 

y  = 

0.1590 

-5.162E-08 

+5.530E-07 

-6,557E“08 

0.0007 

z  = 

“0.1026 

“l.OllE-07 

“6.557E“08 

+4.941E-07 

0.0007 

NBDL  GIANT:  09 
35mm  Still 

:17  10/13/92 

Camera  System  for  Head  Anthropometry  of 

HRV  # 

Page  14 
=  0253 

Ident 

TRIANGULA 

Position  (meters) 

TED  OBJECT  POINTS 

Covariance  Matrix 

Std  Dev  (m) 

X 

0.0653 

+5.642E-07 

+1.285E-08 

-1.145E-07 

0.0008 

ear2“r 

Y 

= 

“0.1502 

+1.285E-08 

+5.876E-07 

+3.230E-08 

0.0008 

Z 

= 

“0.1212 

-1.145E-07 

+3.230E-08 

+5.234E-07 

0.0007 

X 

IT 

0.0683 

+5.285E-07 

-5.445E-08 

“1.054E-07 

0.0007 

ear3“l 

Y 

= 

0.1377 

“5.445E-08 

+5.491E-07 

-5,835E-08 

0,0007 

Z 

= 

-0.1152 

-1.054E-07 

“5.835E-08 

+4.796E-07 

0.0007 

X 

r: 

0.0572 

+6.725E-07 

+9.706E-08 

-1.714E-07 

0.0008 

ear3-r 

Y 

= 

-0.1275 

+9.706E-08 

+6.311E-07 

“1.327E-08 

0.0008 

Z 

= 

“0.1294 

-1.714E-07 

“1.327E-08 

+6.013E-07 

0.0008 

X 

0.0604 

+5.196E-07 

-5.673E-08 

“1.099E-07 

0.0007 

ear4“l 

y 

= 

0.1170 

-5.673E-08 

+5.487E-07 

“5,244E-08 

0.0007 

z 

= 

-0.1270 

“1.099E-07 

-5.244E-08 

+4.706E-07 

0.0007 

X 

= 

0.0494 

+6.671E-07 

+9.644E-08 

-1.787E-07 

0.0008 

ear4“r 

Y 

= 

“0.1045 

+9.644E-08 

+6,230E-07 

“1.771E-08 

0.0008 

Z 

= 

“0.1384 

“1.787E-07 

“1.771E-08 

+5.885E-07 

0.0008 

X 

= 

0.4191 

+3.957E-05 

-4.091E-06 

“4.325E-05 

0.0063 

*  g 

y 

“0.3568 

“4.091E-06 

+1.175E-05 

+4.562E-06 

0.0034 

z 

= 

“1.2174 

“4.325E-05 

+4.562E-06 

+7.604E-05 

0.0087 

X 

= 

0.4381 

+4.878E-05 

+2.010E-05 

“5.626E-05 

0.0070 

*  h 

y 

0.5933 

+2.010E-05 

+2.442E-05 

-3.105E-05 

0.0049 

z 

“1.2110 

“5.626E-05 

“3.105E-05 

+9,616E-05 

0.0098 

S  U  M  M  A  R 

Y 

s 

TATIS 

TICS  F 

•OR  OB 

1  J  E  C  T 

P  O  I  N  T  1 

RMS  For  Standard  Deviations 

Count  =37  X  =  0.0021  meters 

Count  =37  y  =  0,0017  meters 
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Count  =21  Z  = 


0.0026  meters 


NBDL  GIANT;  09:17  10/13/92 

35mm  Still  Camera  System  for  Head  Anthropometry  of 


Page  15 
HRV  #  =  0253 


E  C  T  I  O  N 

S 

L  P  P  L  I  E  I 

3 

T  O 

O  B 

J 

E  C  T  CON 

T  R  < 

X 

— 

0.0000 

m 

X 

=  0.0000 

m 

mccl 

y 

r: 

0.0000 

m 

mlcl 

y 

=  0.0001 

m 

z 

= 

0.0001 

m 

z 

=  0.0000 

m 

X 

0.0000 

m 

X 

=  0.0000 

m 

mrcl 

y 

0.0001 

m 

mcc2 

y 

=  -0.0001 

m 

z 

= 

-0.0001 

m 

z 

0.0003 

m 

X 

:= 

0.0000 

m 

X 

=  0.0001 

m 

mlc2 

y 

= 

0.0000 

m 

mrc2 

y 

=  0.0000 

m 

z 

= 

0.0000 

m 

z 

=  -0.0001 

m 

X 

0.0001 

m 

X 

=  0.0000 

m 

mcc3 

y 

=r 

-0.0001 

m 

mlc3 

y 

=  0.0000 

m 

z 

= 

0.0002 

m 

z 

=  -0.0001 

m 

X 

= 

0.0000 

m 

X 

=  0.0000 

m 

mrc3 

y 

0.0000 

m 

mcc4 

y 

=  -0.0001 

m 

z 

= 

0.0000 

m 

z 

=  0.0000 

m 

X 

-0.0001 

m 

X 

=  0.0000 

m 

mlc4 

y 

= 

0.0000 

m 

mrc4 

y 

=  0.0000 

m 

z 

= 

-0.0002 

m 

z 

=  -0.0001 

m 

X 

-0.0001 

m 

X 

=  0.0000 

m 

mcc5 

y 

= 

0.0000 

m 

mlc5 

y 

=  0.0001 

m 

z 

= 

0.0001 

m 

z 

=  -0.0001 

m 

X 

— 

0.0000 

m 

X 

=  0.0000 

m 

mrc5 

y 

= 

0.0000 

m 

mcc6 

y 

=  0.0000 

m 

z 

= 

-0.0001 

m 

z 

=  0.0000 

m 

X 

0.0000 

m 

X 

=  0.0000 

m 

mrc6 

y 

0.0000 

m 

mcc7 

y 

=  -0.0001 

m 

z 

= 

0.0000 

m 

z 

=  0.0001 

m 

X 

— 

0.0000 

m 

X 

=  0.0000 

m 

mlc7 

y 

0.0001 

m 

mcc8 

y 

==  -0.0001 

m 

z 

= 

-0.0001 

m 

z 

=  0.0000 

m 

X 

— 

0.0000 

m 

X 

=  0.0000 

m 

mlc8 

y 

= 

0.0000 

m 

mrc8 

y 

=  0.0000 

m 

z 

= 

-0.0001 

m 

z 

=  0.0001 

m 

X  . . . •  Number 

Of 

Components 

- 

22 

RMS  = 

0.0000  meters 

y  . • . .  Number 

of 

Components 

= 

22 

RMS  = 

0.0001  meters 

Z  • • • ♦  Number 

of 

Components 

= 

22 

RMS  = 

0.0001  meters 
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NBDL  GIANT:  09:17  10/13/92  Page  16 

35inm  Still  Camera  System  for  Head  Anthropometry  of  HRV  #  =  0253 

ANTHROPOMETRY  OUTPUT 

T-PLATE  ORIGIN  WITH  RESPECT  TO  HEAD  ANATOMICAL  ORIGIN 
X=  15.7009cm  Y=  -0.1695cm  Z=  -5.4439cm 


T-PLATE  ORIENTATION  WITH  RESPECT  TO  HEAD  ANATOMICAL  SYSTEM 


-0.508605 

-0.007191 

0.860970 


0.082581 

0.994948 

0.057093 


-0.857030 

0.100138 

-0.505442 
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Body  Anthropometry  Output  File 

NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 

Object  Space  Reference  System  is  Rectangular 
Rotation  angles  are  Terrestrial  Object-to-Photo 
Complete  Triangulation  process  is  requested 
Error  Propagation  is  requested 
[Eigenvector /Eigenvalue  output] 

Unit  Variance  will  be  based  on  completely  free  camera  parcimeters 
All  Image  Residuals  will  be  listed 
Triangulated  Object  Coordinates  will  be  saved 
Adjusted  Camera  Station  Parameters  will  be  saved 

NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of  HRV  # 

ERROR  WARNINGS 


Page  2 
=  0253 


Page  1 
HRV  #  =  0253 


PASS  POINTS  APPEARING  ON  1  PHOTO 


*Rib_Rt 

*r6 


*r2 

*c7 


*r3 

*c8 


*r4 


NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 


Page 

HRV  #  =  0253 


CAMERA  S 

T  A  T  I  0  N  S 

CORRECTION 

s 

n  M  — 

D  E - 

X  Y 

Z 

Azim.  Elev. 

Swing 

Iteration 

1 

LfEyLf Sh 

0.0025  0.0026 

0.0043  m. 

0.005165  -0.008976 

0.009395 

RtEyLf Sh 

0.0048  0.0016 

-0.0042  m. 

0.006387  0.007221 

-0.004892 

LfEyRtSh 

-0.0002  0.0003 

-0.0015  m. 

-0.000130  -0.002379 

0.007539 

RtEyRtSh 

-0.0007  0.0005 

-0.0014  m. 

-0.000203  -0.002936 

0.006722 

Provisional  Weighted  Sum  of  Squares  =  2007.91 
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LfEyLfSh 

RtEyLfSh 

LfEyRtSh 

RtEyRtSh 


-0.0002  -0.0001 

-0.0001  0.0000 

0.0000  -0.0001 

0.0000  -0.0001 


Iteration 
0.0001  m. 
0.0000  m. 
0.0000  m. 
0.0000  m. 


2 

-0.000245  -0.000300 
-0.000042  0.000029 

0.000029  0.000073 

0.000008  0.000065 


Provisional  Weighted  Sum  of  Squares  —  1953.95 


LfEyLfSh 

RtEyLfSh 

LfEyRtSh 

RtEyRtSh 


0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000 


Iteration 
0.0000  m. 
0.0000  m. 
0.0000  m. 
0.0000  ra. 


3 

0.000005  -0.000019 
0.000006  0.000010 
0.000000  -0.000004 
0.000002  -0.000008 


Provisional  Weighted  Sum  of  Squares  =  1953.89 


NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 


HRV  #  = 


TRIANGULATED  IMAGE  POINTS 

(in  micrometers) 


Origin 


Rib  Lf 


SpineTop 


SpineBot 


spine_bb 


sternum 


*lf  shol 


IneckT 


LfEyLfSh 

-840 

RtEyLfSh 

738 

-6245 

1065 

LfEyLfSh 

-2922 

RtEyLfSh 

2985 

-319 

5515 

RtEyLfSh 

-2434 

LfEyRtSh 

-4097 

-2796 

2288 

LfEyLfSh 

1913 

RtEyLfSh 

-1851 

-2159 

-2338 

LfEyLfSh 

174 

RtEyLfSh 

-139 

2020 

2154 

RtEyLfSh 

-952 

LfEyLfSh 

-135 

5370 

3514 

RtEyLfSh 

-31 

LfEyLfSh 

29 

-217 

216 

RtEyLfSh 

943 

LfEyLfSh 

-987 

-1336 

325 

LfEyLfSh 

-776 

RtEyLfSh 

794 

411 

-717 

LfEyRtSh  RtEyRtSh 
1457  -1651 

3951  1370 

LfEyRtSh  RtEyRtSh 
-754  620 

-3151  -1763 

LfEyLfSh  RtEyRtSh 
2648  4163 

-2641  3347 

LfEyRtSh  RtEyRtSh 
-921  999 

2259  2391 

LfEyRtSh  RtEyRtSh 
470  -300 

-2039  -2198 

LfEyRtSh  RtEyRtSh 
223  -1040 

-4608  -4657 


RtEyRtSh 

-121 

794 

RtEyRtSh 

-48 

237 


R  E  S  I 


94 


0.000168 

-0.000182 

0.000043 

0.000017 


0.000019 

0.000010 

0.000012 

0.000009 


Page  4 
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IneckB 


Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


rneckT  LfEyLfSh  LfEyRtSh  RtEyRtSh 

-180  1000  -1227 

-2664  1930  1367 

rneckB  LfEyRtSh  LfEyLfSh  RtEyRtSh 

1200  80  -1126 

2650  -3863  2151 

*rl  RtEyLfSh  LfEyLfSh 

-10  9 

-85  84 


r2  *0*  LfEyLfSh  LfEyRtSh  RtEyRtSh 
-6040  1492  3314 

4211  -4083  -3908 


NBDL  GIANT:  18:02  10/08/92 


X- 

-Ray 

Determination  of  Body  Anthropometry  of  HRV  # 

T  R  I 

A  N 

G  U  L  A  T 

ED  IMAGE 

POINTS  res: 

(in  micrometers) 

r3 

*0* 

LfEyRtSh 

LfEyLfSh 

RtEyRtSh 

-141 

6566 

-412 

-1718 

-607 

-1227 

r4 

*0* 

LfEyLfSh 

LfEyRtSh 

RtEyRtSh 

5828 

1243 

1229 

-3163 

-132 

94 

*r5 

RtEyLfSh 

LfEyLfSh 

-36 

33 

-293 

290 

r6 

*0* 

LfEyRtSh 

LfEyLfSh 

RtEyRtSh 

899 

-8332 

67 

-2349 

7127 

-1180 

r7 

*0* 

LfEyLfSh 

RtEyLfSh 

LfEyRtSh 

RtEyRtSh 

2531 

3209 

1158 

-1612 

1654 

1369 

579 

1199 

r8 

*0* 

LfEyLfSh 

LfEyRtSh 

RtEyLfSh 

RtEyRtSh 

1955 

-73 

2169 

-2293 

1003 

2184 

221 

2579 

cl 

*0* 

LfEyRtSh 

LfEyLfSh 

RtEyLfSh 

RtEyRtSh 

-2802 

-2426 

-1398 

-165 

-2144 

1603 

1046 

-2066 

c2 

*0* 

RtEyLfSh 

LfEyLfSh 

LfEyRtSh 

RtEyRtSh 

-1015 

-1625 

-2410 

109 

2833 

2865 

-1614 

-1213 

*c3 

LfEyLfSh 

RtEyLfSh 

-1 

1 

Page  5 
=  0253 

DUALS 


95 


Naval  Biodynamics  Laboratory  Software  Documentation 


-10  10 


*c4 

LfEyLfSh 

3 

RtEyLfSh 

-3 

27 

-27 

*c5 

LfEyLfSh 

23 

RtEyLfSh 

-25 

202 

-203 

*c6 

RtEyLfSh 

-20 

LfEyLfSh 

19 

-164 

163 

cl  *0* 

LfEyRtSh 

1549 

LfEyLfSh 

5266 

RtEyRtSh 

-11 

3414 

-3835 

3369 

NBDL  GIANT:  IS 

1:02  10/08/92 

X- 

-Ray 

Determination  of  Body  Anthropometry  of  HRV  # 

T  R  I 

A  N 

G  U  L  A  T 

ED  IMAGE 

POINTS  RES 

(in  micrometers) 

C8 

*0* 

LfEyLfSh 

LfEyRtSh 

RtEyRtSh 

6351 

2252 

565 

-7500 

5856 

5982 

11 

LfEyRtSh 

RtEyLfSh 

LfEyLfSh 

RtEyRtSh 

-1957 

-1100 

-1993 

516 

-4701 

1073 

2110 

-4981 

12 

*0* 

LfEyRtSh 

LfEyLfSh 

RtEyLfSh 

RtEyRtSh 

-2089 

-830 

27 

-126 

-3692 

1429 

631 

-4595 

13 

*0* 

LfEyRtSh 

RtEyLfSh 

LfEyLfSh 

RtEyRtSh 

-248 

1449 

-2019 

-715 

-941 

-3248 

-2267 

-1762 

14 

*0* 

LfEyRtSh 

LfEyLfSh 

RtEyLfSh 

RtEyRtSh 

2224 

-2825 

1123 

2073 

897 

-2620 

-3827 

486 

15 

LfEyLfSh 

RtEyLfSh 

LfEyRtSh 

RtEyRtSh 

913 

-1416 

-1608 

-1891 

4948 

4235 

-1051 

-1803 

16 

*0* 

RtEyLfSh 

LfEyRtSh 

LfEyLfSh 

RtEyRtSh 

-2065 

785 

151 

-353 

2762 

-1693 

3150 

-2085 

17 

*0* 

LfEyLfSh 

LfEyRtSh 

RtEyLfSh 

RtEyRtSh 

-2795 

2695 

-1900 

-616 

158 

1626 

-687 

881 
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18 

*0* 

LfEyLfSh 

408 

RtEyLfSh  LfEyRtSh 
1124  1872 

210 

-649 

3968 

Rib_Rt 

RtEyRtSh 

175 

LfEyRtSh 

-565 

RtEyLfSh 

-71 

6806 

5845 

-11729 

*rt  shol 

RtEyRtSh 

13 

LfEyRtSh 

-14 

-311 

311 

rl 

LfEyRtSh 

-109 

RtEyRtSh 

2134 

-4870 

-4113 

r5 

*Q* 

LfEyRtSh 

-259 

RtEyRtSh 

-301 

-1964 

-1193 

-953 

4023 


NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 


Page  7 
HRV  #  =  0253 


TRIANGULATED  IMAGE  POINTS  RESIDUALS 

(in  micrometers) 

c3  *0*  RtEyRtSh  LfEyRtSh 
-923  -1148 

-1887  -1463 

c4  *0*  RtEyRtSh  LfEyRtSh 
1345  926 

2300  2868 

c5  *0*  RtEyRtSh  LfEyRtSh 
-477  -1181 

1753  1660 


c6  *0*  LfEyRtSh  RtEyRtSh 
-1104  -900 

32  -46 


Weighted  Sum  of  Squares  (Camera)  =  2.2 
Weighted  Sum  of  Squares  (Object)  =  118.5 
Weighted  Sum  of  Squares  (Plates)  =  1684.7 

Weighted  Sum  of  Squares  (Total)  =  1805.4 
Degrees  of  Freedom .  =  185 


a  posteriori  Variance  of  Unit  Weight  = 


9.759 
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X-Ray  Determination  of  Body  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  CAMERA  STATIONS 

( Terrest r ial->Ph ) 

Ident  Position  Error  Ellipsoid  - >  Length 

X  =  0.5084  m.  +0.7931  +0.6089  -0.0123  - >  0.0100  m. 

LfEyLfSh  Y  =  -0.4485  m.  -0.4864  +0.6211  -0.6146  - >  0.0079  m. 

Z  =  -0.0755  m.  +0.3666  -0.4934  -0.7888  - >  0.0071  m. 

Azim.  =  315  02  6.4341  00  51  22.2323 

Attitude:  Elev.  =-  00  33  32.6112  Std  Dev:  00  51  22.2323 

Swing  =  00  27  5.6771  00  52  48.4597 

X  =  0.5527  m.  +0.4902  +0.8711  -0.0279  - >  0.0111  m. 

RtEyLfSh  Y  =  -0.4114  m.  +0.8186  -0.4492  +0.3578  - >  0.0090  m. 

Z  =  -0.0822  m.  -0.2991  +0.1983  +0.9334  - >  0.0076  m. 

Azim.  =  314  45  41.7829  00  56  14.3432 

Attitude:  Elev.  =  00  01  9.6575  Std  Dev:  00  56  14.3432 

Swing  =  01  01  21.4765  00  56  3.6139 

X  =  0.5147  m.  -0.7583  +0.6506  +0.0412  - >  0.0083  m. 

LfEyRtSh  Y  =  0.4702  m.  -0.6488  -0.7470  -0.1452  - >  0.0073  m. 

Z  =  -0.0695  m.  +0.0636  +0.1369  -0.9885  - >  0.0070  m. 

Azim.  =  222  37  35.9298  00  42  11.5625 

Attitude:  Elev.  =-  01  24  18.3679  Std  Dev:  00  42  11.5625 

Swing  =-  01  14  38.0329  00  48  16.2198 

X  =  0.4822  m.  +0.7947  -0.6049  -0.0513  - >  0.0084  m. 

RtEyRtSh  Y  =  0.4995  m.  -0.5811  -0.7336  -0.3523  - >  0.0072  m. 

Z  =  -0.0684  m.  -0.1754  -0.3098  +0.9345  - >  0.0069  m. 

Azim.  =  222  18  17.0390  00  42  31.7849 

Attitude:  Elev.  =-  01  31  6.6971  Std  Dev:  00  42  31.7849 

Swing  =-  01  03  31.7206  00  46  42.5383 


SUMMARY  STATISTICS  FOR  CAMERA  STATIONS 

RMS  For  Standard  Deviations 

X  =  0.0087  m.  Azim.  =  00  48  27.1792 

Count  =4  Y  =  0.0087  m.  Elev.  =  00  52  32.7915 

Z  =  0.0073  m.  Swing  =  00  51  5.7522 


NBDL  GIANT:  18:02  10/08/92  Page  9 

X-Ray  Determination  of  Body  Anthropometry  of  HRV  #  =  0253 

TRIANGULATED  OBJECT  POINTS 

Ident  Position  (meters)  Error  Ellipsoid  - >  Length  (m) 

X  =  -0.0307  +9.815E-01  +1.433E-01  -1.268E-01  0.0007 
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cl 

*0* 

y 

-0.0069 

-1.418E-01 

+9.897E-01 

+2.034E-02 

0.0007 

z 

0.0019 

+1.284E-01 

-1.986E-03 

+9.917E-01 

0.0007 

X 

= 

-0.0307 

-9.866E-01 

-1.380E-01 

+8.723E-02 

0.0007 

c2 

*0* 

y 

-0.0066 

+1.367E-01 

-9.904E-01 

-2.103E-02 

0.0007 

z 

= 

-0.0189 

+8.930E-02 

-8.821E-03 

+9.960E-01 

0.0007 

X 

-0.0308 

-7.457E-01 

-6.631E-01 

+6.500E-02 

0.0008 

c3 

*0* 

y 

= 

0.0144 

+6.000E-01 

-6.259E-01 

+4.983E-01 

0.0007 

z 

= 

-0.0226 

+2.897E-01 

-4.106E-01 

-8.646E-01 

0.0007 

X 

= 

-0.0309 

-7.446E-01 

-6.598E-01 

+1.007E-01 

0.0008 

c4 

y 

0.0156 

-6.509E-01 

+6.845E-01 

-3.284E-01 

0.0007 

z 

= 

0.0022 

-1.478E-01 

+3.101E-01 

+9.392E-01 

0.0007 

X 

= 

-0.0082 

-7.134E-01 

-6.935E-01 

+1.008E-01 

0.0008 

c5 

*0* 

y 

-0.0075 

-6.982E-01 

+6.912E-01 

-1.866E-01 

0.0007 

z 

0.0023 

-5.974E-02 

+2.034E-01 

+9.773E-01 

0.0007 

X 

-0.0085 

-7.147E-01 

-6.960E-01 

+6.915E-02 

0.0008 

c6 

*0* 

y 

= 

-0.0087 

-6,824E-01 

+6.721E-01 

-2.874E-01 

0.0007 

z 

-0.0199 

-1.536E-01 

+2.526E-01 

+9.553E-01 

0.0007 

X 

= 

-0.0081 

+7.933E-01 

+6.045E-01 

-7.227E-02 

0.0008 

cl 

*0* 

y 

= 

0.0151 

-6.025E-01 

+7.966E-01 

+4.928E-02 

0.0007 

z 

-0.0208 

+8.736E-02 

+4.449E-03 

+9.962E-01 

0.0007 

X 

= 

-0.0078 

+7.914E-01 

+6.014E-01 

-1.096E-01 

0.0008 

c8 

*0* 

y 

s= 

0.0158 

-5.978E-01 

+7.988E-01 

+6.757E-02 

0.0007 

z 

= 

0.0018 

+1.282E-01 

+1.207E-02 

+9.917E-01 

0.0007 

X 

0.0306 

+9.205E-01 

+3.652E-01 

-1.392E-01 

0.0007 

11 

*0* 

y 

= 

0.0334 

-3.617E-01 

+9.309E-01 

+5.044E-02 

0.0007 

z 

= 

0.0037 

+1.480E-01 

+3.909E-03 

+9.890E-01 

0.0007 

X 

= 

0.0307 

-9.164E-01 

-3.895E-01 

+9.202E-02 

0.0007 

12 

*0* 

y 

= 

0.0340 

+3.867E-01 

-9.210E-01 

-4.744E-02 

0.0007 

z 

-0.0197 

+1.032E-01 

-7.892E-03 

+9.946E-01 

0.0007 

X 

0.0311 

+8.569E-01 

+5.083E-01 

-8.555E-02 

0.0007 

13 

•kQ-k 

y 

= 

0.0551 

-5.050E-01 

+8.612E-01 

+5.842E-02 

0.0007 

z 

= 

-0.0200 

+1.034E-01 

-6.863E-03 

+9.946E-01 

0.0007 

X 

= 

0.0306 

+8.619E-01 

+4.889E-01 

-1.347E-01 

0.0007 

14 

kQk 

y 

= 

0.0562 

-4.850E-01 

+8.723E-01 

+6.224E-02 

0.0007 

z 

0.0037 

+1.479E-01 

+1.169E-02 

+9.889E-01 

0.0007 

X 

= 

0.0536 

+8.464E-01 

+5.146E-01 

-1.370E-01 

0.0007 

15 

*0* 

y 

= 

0.0343 

-5.088E-01 

+8.574E-01 

+7.728E-02 

0.0007 

z 

= 

0.0027 

+1.572E-01 

+4.270E-03 

'f9.876E-01 

0.0007 
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NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 


HRV  # 


I  dent 

16 

17 

18 

rl 

r2 

r3 

r4 

r5 

r6 

rl 

r8 

*c3 

*c4 


T  R  I  A  N 

Position 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  y  = 
z  = 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  Y  = 

Z  = 

X  = 

*0*  y  = 
z  = 

X  = 

*0*  Y  = 

z  = 

X  = 

*0*  y  = 
z  = 

X  = 

*0*  Y  = 

z  = 

X  = 

Y  = 

Z  = 

X  = 

y  = 
z  = 


GULATED  OBJECT  POINTS 
(meters)  Error  Ellipsoid  — -> 


0.0527 

-8.176E-01 

0.0341 

+5.649E-01 

-0.0202 

+1.117E-01 

0.0520 

+7.662E-01 

0.0556 

-6.326E-01 

-0.0208 

+1.124E-01 

0.0538 

+7.851E-01 

0.0559 

-5.988E-01 

0.0025 

+1.583E-01 

0.0327 

-6.557E-01 

-0.0468 

-7.515E-01 

0.0042 

-7.314E-02 

0.0315 

+6.709E-01 

-0.0458 

-7.341E-01 

-0.0217 

+1.047E-01 

0.0305 

+6.905E-01 

-0.0245 

-7.160E-01 

-0.0215 

+1.025E-01 

0.0313 

+6.926E-01 

-0.0247 

-7.048E-01 

0.0031 

+1.535E-01 

0.0523 

-6.400E-01 

-0.0460 

+6.379E-01 

0.0033 

+4.284E-01 

0.0526 

+6.057E-01 

-0.0461 

-7.879E-01 

-0.0223 

+1.116E-01 

0.0522 

-9.906E-01 

-0.0235 

+7.886E-02 

-0.0220 

-1.118E-01 

0.0528 

-9.820E-01 

-0.0245 

+1.016E-01 

0.0028 

+1.595E-01 

0.0303 

-7.906E-01 

-0.0491 

+6.104E-01 

-0.0228 

+4.859E-02 

0.0359 

-7.857E-01 

-0.0518 

-6.130E-01 

0.0012 

+8.251E-02 

-5.692E-01  +8.745E-02 
-8.222E-01  -7,000E-02 
"7.829E-03  +9.937E-01 

+6.372E-01  -8.251E-02 
+7.707E-01  +7.658E-02 
-6.481E-03  +9.936E-01 

+6,047E-01  -1.338E-01 
+7.963E-01  +8.560E-02 
+1.293E-02  +9.873E-01 

-7.481E-01  +1.021E-01 
+6,335E-01  -1.842E-01 
+1.975E-01  +9.776E-01 

+7.389E-01  -6.259E-02 
+6.737E-01  +8.462E-02 
-1.082E-02  +9,944E-01 

+7.203E-01  -6.608E-02 
+6.936E-01  +7.874E-02 
-7.056E-03  +9.947E-01 

+7,141E-01  -1.023E--01 
+7,000E-01  +1*148E“01 
-7.394E-03  +9.881E-01 

-7.614E-01  +1,033E-01 
-4.515E-01  +6.238E-01 
-4.651E-01  -7.747E-01 

+7.935E-01  “6.004E-02 
+6.085E-01  +9.457E~02 
-9.970E-03  +9.937E-01 

+7.748E-02  +1.127E-01 
+9.969E-01  +7.844E-03 
+l,666E-02  -9.936E-01 

“1.066E-01  +1.562E-01 
-9,940E-01  -3,942E-02 
"2.283E-02  +9.869E-01 

+6.058E~01  +8.898E-02 
+7.913E-01  +3,602E-02 
-8.279E-02  +9.954E-01 

+6.052E-01  +1.277E^01 
-7.344E-01  -2.913E-01 
+3,072E-01  -9.481E-01 


Page  10 
0253 


Length  (m) 

0,0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0008 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0008 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0007 

0.0392 

0.0019 

0.0018 

0.0393 

0.0019 

0.0018 
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X-Ray  Determination  of  Body  Anthropometry  of 


Page  11 
HRV  #  =  0253 


TRIANGULATED  OBJECT  POINTS 


I  dent 

Position 

(meters) 

Error  Ellipsoid  - > 

Length  (m; 

X  = 

-0.0211 

-7.770E-01 

+6.196E-01 

+1.111E-01 

0.0479 

*c5 

y  = 

0.0089 

-6.295E-01 

-7.632E-01 

-1.461E-01 

0.0020 

z  = 

-0.0001 

+5 . 686E— 03 

+1.835E-01 

-9.830E-01 

0.0020 

X  = 

-0.0241 

-7,790E-01 

+6.216E-01 

4-8.169E-02 

0.0481 

*c6 

Y  = 

0.0117 

-6.246E-01 

-7.581E-01 

-1.877E-01 

0.0020 

z  = 

-0.0208 

+5,477E-02 

+1.973E-01 

-9,788E-01 

0.0020 

X  = 

-0.0025 

-7.803E-01 

+6.146E-01 

+1.157E-01 

0.0444 

*rl 

y  = 

-0.0116 

-5.988E-01 

-6.808E-01 

-4.220E-01 

0.0019 

z  = 

0.0000 

+1.806E-01 

+3.986E-01 

-8.992E-01 

0.0019 

X  = 

-0.0043 

-7.650E-01 

+6.340E-01 

+1,133E-01 

0.0461 

*r5 

y  = 

0.0123 

-6.436E-01 

-7.455E-01 

-1.734E-01 

0.0019 

z  = 

0.0002 

+2.548E-02 

+2.056E-01 

-9.783E-01 

0.0019 

X  = 

0.1667 

+1.696E-01 

+9.855E-01 

+9,441E-03 

0.0027 

Origin 

y  = 

0.0054 

-9.854E-01 

+1.694E-01 

+1.891E-02 

0.0022 

z  = 

-0.0751 

+1.704E-02 

-1.251E-02 

+9.998E-01 

0.0017 

X  = 

0.1409 

+1.751E-01 

+9.844E-01 

+1.807E-02 

0.0024 

Rib_Lf 

y  = 

0,0370 

-9.845E-01 

+1.748E-01 

+1.329E-02 

0.0021 

z  = 

-0.0784 

+9.927E-03 

-2.012E-02 

+9.997E-01 

0.0016 

X  = 

0.1447 

+4.646E-01 

+8.855E-01 

+2.799E-03 

0.0030 

Rib_Rt 

y  = 

-0.0192 

+8.855E-01 

-4.646E-01 

+1.504E-03 

0.0022 

z  = 

-0.0759 

+2,633E-03 

+1.780E-03 

-l.OOOE+00 

0.0018 

X  = 

-0.0451 

+9.969E-01 

-5.515E-02 

+5.554E-02 

0.0032 

IneckB 

Y  = 

0.1152 

+5,130E-02 

+9,963E-01 

+6.852E-02 

0.0027 

z  == 

-0.0984 

-5,912E-02 

-6.546E-02 

+9.961E-01 

0.0021 

X  = 

-0.0458 

-9.968E-01 

+5.720E-02 

+5.556E-02 

0.0031 

IneckT 

Y  = 

0.1179 

-5.829E-02 

-9.981E-01 

-1.821E-02 

0.0026 

z  = 

-0.0348 

+5.442E-02 

-2.139E-02 

+9.983E-01 

0.0020 

X  = 

-0,0397 

+9.019E-01 

+4.276E-01 

+6.137E-02 

0.0031 

rneckB 

y  = 

-0.0949 

-4.259E-01 

+9.039E-01 

-3.969E-02 

0.0025 

z  = 

-0.1014 

-7.244E-02 

+9,657E-03 

+9.973E-01 

0.0021 

X  = 

-0.0396 

+8.963E-01 

+4.410E-01 

-4.694E-02 

0.0030 

rneckT 

Y  = 

-0.0943 

-4.399E-01 

+8.975E-01 

+3.257E-02 

0.0024 

Z  = 

-0.0381 

+5.649E-02 

-8.540E-03 

+9.984E-01 

0.0019 

X  = 

0.1819 

-1.622E-01 

-9.866E-01 

-1.854E-02 

0.0031 

sternum 

Y  = 

-0.0004 

-9.776E-01 

+1.632E-01 

-1,328E-01 

0,0025 

Z  = 

-0.1312 

-1.340E-01 

+3.408E-03 

+9,910E-01 

0,0020 

X  = 

-0.0256 

•f6,997E-01 

-7.054E-01 

+1,127E-01 

0.0690 

*lf_shol 

y  = 

0.1266 

-6,911E-01 

-7.084E-01 

-1.432E-01 

0.0032 

z  = 

-0.1676 

-1.809E-01 

-2.232E-02 

+9.832E-01 

0.0030 
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TRIANGULATED  OBJECT  POINTS 


Ident  Position  (meters)  Error  Ellipsoid  - >  Length  (m) 


X 

= 

-0-0638 

+6.507E-01 

+7.482E-01 

+1.297E-01 

0.1109 

*rt_shol 

y 

= 

-0.1608 

-7.291E-01 

+6.633E-01 

-1.684E-01 

0.0034 

z 

= 

-0.1809 

+2.120E-01 

-1.502E-02 

-9.771E-01 

0.0033 

X 

=r 

0.0915 

+1.834E-01 

+9.830E-01 

+6.529E-03 

0.0021 

SpineBot 

Y 

= 

-0.0002 

+9.830E-01 

-1.833E-01 

-6.239E-03 

0.0020 

z 

-0.0771 

-4.936E-03 

+7.563E-03 

-l.OOOE+00 

0.0015 

X 

0.0974 

+1.730E-01 

+9.849E-01 

+4.707E-03 

0.0021 

SpineTop 

y 

= 

-0.0016 

-9.847E-01 

+1.729E-01 

+2.196E-02 

0.0020 

z 

-0.0703 

-2.082E-02 

+8.434E-03 

-9.997E-01 

0.0015 

X 

0.0591 

+6.670E-01 

+7.450E-01 

-2.066E-03 

0.0019 

spine  bb 

Y 

= 

0.0043 

-7.448E-01 

+6.669E-01 

+2.026E-02 

0.0019 

z 

= 

-0.0683 

-l,647E-02 

+1.198E-02 

-9.998E-01 

0.0014 

S  U  M  M  A 

R  y 

S  T  A  T  I  S 

TICS  B 

m 

O 

O 

;  J  E  C  T 

POINTS 

RMS  For  Standard  Deviations 

Count  =  19  X  =  0.0279  meters 
Count  =19  y  =  0.0270  meters 
Count  =19  Z  =  0.0050  meters 


NBDL 

GIANT:  18:02 

10/08/92 

Pag< 

X-Ray  Determination  of 

Body  Anthropometry 

of 

HRV  #  =  0253 

C  0 

RRECTION 

S  A  P 

P  L  I  E  ] 

D 

T  0 

0  B 

J 

E 

C  T  C  0  N  T 

X  = 

0.0000 

m 

X 

= 

0.0001  m 

cl 

y  = 

0.0004 

m 

11 

Y 

= 

0*0004  m 

z  = 

0.0001 

m 

Z 

= 

0.0005  m 

X  = 

0.0002 

m 

X 

0.0000  m 

rl 

Y  = 

0.0000 

m 

c2 

y 

= 

0.0003  m 

Z  = 

0.0007 

m 

z 

= 

-0.0002  m 

X  = 

-0.0001 

m 

X 

= 

0.0006  m 

12 

Y  = 

0.0002 

m 

r2 

Y 

= 

0.0002  m 

Z  = 

0.0005 

m 

z 

= 

0.0002  m 

X  = 

-0.0001 

m 

X 

= 

0.0000  m 

c3 

Y  = 

0.0001 

m 

13 

Y 

= 

0.0001  m 

Z  = 

0.0002 

m 

Z 

= 

0.0006  m 

X  = 

-0.0004 

m 

X 

0.0001  m 

r3 

y  = 

-0.0004 

m 

c4 

Y 

= 

-0.0002  m 

z  = 

0.0003 

m 

Z 

= 

-0.0004  m 
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X 

= 

0.0004 

m 

X 

-0.0002 

m 

14 

Y 

= 

-0.0002 

m 

r4 

Y 

= 

-0.0005 

m 

Z 

- 

0.0004 

m 

Z 

= 

0.0003 

m 

X 

= 

-0.0001 

m 

X 

3= 

-0.0002 

m 

c5 

Y 

s= 

0.0001 

m 

15 

Y 

= 

0.0003 

m 

Z 

= 

-0.0003 

m 

Z 

-0.0005 

m 

X 

0.0000 

m 

X 

= 

-0.0001 

m 

r5 

Y 

0.0000 

m 

c6 

Y 

= 

0.0001 

m 

Z 

0.0002 

m 

Z 

0.0000 

m 

X 

0.0001 

m 

X 

0.0005 

m 

16 

Y 

= 

0,0001 

m 

r6 

Y 

0.0006 

m 

Z 

-0.0001 

m 

Z 

= 

-0.0003 

m 

X 

-0.0002 

m 

X 

3= 

0.0004 

m 

c7 

Y 

-0.0004 

m 

17 

Y 

=3 

0.0001 

m 

Z 

= 

-0.0002 

m 

Z 

=3 

-0.0002 

m 

X 

-0.0004 

m 

X 

-0.0002 

m 

r7 

Y 

= 

-0.0003 

m 

c8 

Y 

=3 

-0.0006 

m 

Z 

= 

-0.0004 

m 

Z 

-0.0003 

m 

X 

= 

-0.0001 

m 

X 

-0.0004 

m 

18 

Y 

= 

-0.0002 

m 

r8 

Y 

= 

-0.0002 

m 

Z 

= 

-0.0007 

m 

Z 

3= 

-0.0005 

m 

Number 

of 

Components  = 

24 

RMS  = 

0.0003 

meters 

Number 

of 

Components  = 

24 

RMS  = 

0.0003 

meters 

Number 

of 

Components  = 

24 

RMS  = 

0.0004 

meters 

NBDL  GIANT:  18:02  10/08/92 

X-Ray  Determination  of  Body  Anthropometry  of 


Page  14 
HRV  #  =  0253 


ANTHROPOMETRY  OUTPUT 


T-PLATE  ORIGIN  WITH  RESPECT  TO  BODY  ANATOMICAL  ORIGIN 
X=  -16.8052cm  Y=  0.6003cm  Z=  7.2123cm 


T-PLATE  ORIENTATION  WITH  RESPECT  TO  BODY  ANATOMICAL  SYSTEM 


0.995966 

-0.088285 

0.016067 

0.087475 

0.995123 

0.045594 

-0.020014 

-0.044004 

0.998831 
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Site  Survey  Output  File 

NBDL  GIANT:  15:15  02I2SI92  Page  1 

azimuth  -  elevation  -  swing 

Object  Space  Reference  System  is  Rectangular 
Rotation  angles  are  Terrestrial  Object-to-Photo 
Complete  Triangulation  process  is  requested 
Error  Propagation  is  requested 
[Variance/Covariance  output] 

Unit  Variance  will  be  based  on  completely  free  camera  parameters 
All  Image  Residuals  will  be  listed 
Triangulated  Object  Coordinates  will  not  be  saved 
Adjusted  Camera  Station  Parameters  will  be  saved 

NBDL  GIANT:  15:15  03/25/92  Page  2 

azimuth  -  elevation  -  swing 

ERROR  WARNINGS 

POINTS  NOT  PHOTOGRAPHED 

rtc5 


PASS  POINTS  APPEARING  ON  1  PHOTO 

xc6  xc  xx+24  c6 

X2+12  yx+24  Xy-06  Xlfc4 

lfc7 
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NBDL  GIANT:  15:15  03/25/92  Page  3 

azimuth  -  elevation  -  swing 


CAMERA  S 

T  A  T  I  0 

N  S 

C  O  R  R  E 

C  T  I  0  N 

S 

C\  ‘Kt 

qi  T  'T  TT 

n  F 

U  J>i  —  —  —  —  - 

xi 

X  X  X  X  U 

U  Hi  - . . 

X  y 

Z 

Azim. 

Elev. 

Swing 

Iteration 

1 

#1 

-0.0002  -0.0001 

0.0002 

m. 

-0.000049 

-0.000150 

0.000101 

#2 

0.0001  -0.0003 

0.0006 

m. 

-0.000029 

-0.000243 

0.000189 

#3 

-0.0005  0.0001 

0.0001 

m. 

-0.000198 

-0.000117 

0.000093 

#4 

-0.0003  0.0000 

0.0003 

m. 

-0.000156 

0.000571 

-0.000648 

#5 

-0.0006  0.0005 

0.0001 

m. 

-0.000106 

0.000123 

-0.000365 

#6 

-0.0006  0.0000 

0.0002 

m. 

-0.000126 

-0.000143 

-0.000197 

Provisional  Weighted  Sum  of  Squares  =  679.576 

Iteration  2 


#1 

0.0000 

0.0000 

0.0000  m. 

-0.000001 

0.000000 

-0.000002 

#2 

0.0000 

0.0000 

0.0000  m. 

-0.000004 

0.000001 

0.000001 

#3 

0.0000 

0.0000 

0.0000  m. 

-0.000002 

-0.000003 

0.000003 

#4 

0.0000 

0.0000 

0.0000  m. 

-0.000001 

-0.000002 

0.000001 

#5 

0.0000 

0.0000 

0.0000  m. 

0.000001 

-0.000002 

0.000002 

#6 

0.0000 

0.0000 

0.0000  m. 

0.000003 

-0.000001 

0.000001 

Provisional  Weighted  Sum  of  Squares  =  625.981 


#1 

0.0000 

0.0000 

Iteration  3 

0.0000  m.  0.000000 

0.000000 

0.000000 

#2 

0.0000 

0.0000 

0.0000 

m. 

0.000000 

0.000000 

0.000000 

#3 

0.0000 

0.0000 

0.0000 

m. 

0.000000 

0.000000 

0.000000 

#4 

0.0000 

0.0000 

0.0000 

m. 

0.000000 

0.000000 

0.000000 

#5 

0.0000 

0.0000 

0.0000 

m. 

0.000000 

0.000000 

0.000000 

#6 

0.0000 

0.0000 

0.0000 

m. 

0.000000 

0.000000 

0.000000 

Provisional  Weighted  Sum 

of 

Squares  =  625 

1.954 

NBDL  GIANT: 

15:15  03/25/92 

Page  4 

azimuth  - 

elevation  -  swing 

T  R  I  A 

NGULATED 

I  M  i 

\  G  E  P  0 

I  N  T  S 

RES 

I  D  U  A  L  S 

(in 

micrometers) 

Ifcl 

#1 

#2 

#3 

#4 

#5 

#6 

0 

8 

-15 

-6 

12 

-17 

-1 

-12 

9 

9 

4 

-8 

lfc3 

#1 

#2 

#3 

#4 

#5 

#6 

17 

2 

-5 

-9 

27 

-4 

8 

-11 

-11 

1 

0 

6 

lfc4 

#2 

#1 

#3 

#4 

#5 

1 

6 

-6 

6 

3 

-4 

2 

-4 

0 

4 
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lfc6 

#3 

#1 

#6 

-22 

14 

-3 

9 

15 

-16 

cl 

#2 

#3 

#4 

#1 

#5 

#6 

2 

12 

3 

-7 

0 

0 

-13 

-2 

-4 

-5 

15 

4 

c2 

#2 

#4 

#5 

#1 

#6 

21 

-3 

4 

-1 

7 

-3 

1 

9 

-6 

-3 

c3 

#1 

#2 

#3 

#4 

#5 

#6 

-6 

12 

14 

0 

-1 

14 

-1 

-2 

-10 

-6 

5 

9 

c4 

#2 

#1 

#3 

#4 

#5 

#6 

10 

-13 

17 

0 

-15 

15 

-3 

-5 

9 

0 

-4 

4 

c5 

#1 

#3 

#2 

#4 

#5 

-3 

1 

0 

-1 

0 

1 

-6 

4 

-6 

6 

cl 

#4 

#1 

#5 

#6 

5 

18 

3 

0 

9 

-11 

17 

-15 

a 

#2 

#3 

#4 

#5 

#1 

22 

-22 

9 

6 

-21 

-10 

-26 

-3 

25 

21 

b 

#2 

#3 

#1 

#4 

#5 

32 

-27 

-26 

4 

12 

-6 

-33 

20 

8 

16 

rtcl  *0* 

#1 

#3 

#4 

#2 

#5 

4 

-23 

4 

4 

-7 

-8 

-9 

1 

0 

-10 

NBDL  GIANT:  15:15 

03/25/92 

azimuth  -  elevation  -  swing 

TRIANGUL 

A  T  E  D 

I  M  j 

h  G  E  P  0 

I  N  T  S 

R  E  S  I  D  U 

(in 

micrometers) 

rtc2  *0* 

#3 

#2 

#1 

#6 

-11 

-16 

2 

4 

32 

19 

-21 

12 

rtc3  *0* 

#4 

#1 

#5 

#6 

8 

-3 

-7 

19 

-5 

19 

-8 

-2 

rtc6  *0* 

#1 

#2 

-15 

-30 
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7 

19 

rtc7  *0* 

#1 

~36 

-34 

spl  *0* 

#3 

#4 

#5 

#1 

#2 

#6 

0 

0 

-9 

0 

-15 

-16 

4 

-11 

-9 

-6 

-10 

0 

sp2  *0* 

#4 

#2 

#5 

#1 

#3 

#6 

-3 

-20 

-21 

8 

6 

0 

-13 

13 

-15 

-16 

2 

14 

sp3  *0* 

#2 

#3 

#4 

#5 

#1 

#6 

-16 

9 

1 

-14 

2 

-2 

10 

-2 

-4 

-8 

0 

0 

sp4  *0* 

#1 

#2 

#4 

#3 

#5 

#6 

15 

3 

8 

0 

-12 

-5 

-7 

5 

-12 

13 

-13 

-2 

x+12  *0* 

#4 

#1 

#5 

#2 

#3 

#6 

-1 

24 

29 

48 

10 

-9 

-18 

15 

-12 

-28 

-13 

1 

x+18  *0* 

#4 

#1 

#2 

#5 

#3 

#6 

-21 

-4 

19 

30 

17 

-11 

-6 

9 

2 

0 

-19 

0 

y+12  *0* 

#4 

#1 

#3 

#5 

#2 

#6 

8 

-7 

10 

-6 

12 

-3 

-1 

-9 

-4 

7 

-3 

-38 

y+06  *0* 

#3 

#4 

#1 

#5 

#2 

#6 

27 

5 

10 

5 

10 

5 

-13 

15 

-10 

0 

0 

-1 

y-06  *0* 

#1 

#2 

#4 

#6 

-5 

-19 

-4 

0 

-6 

-20 

14 

1 

NBDL  GIANT;  15:15 

03/25/92 

azimuth  -  elevation  -  swing 

TRIANGUL 

A  T  E  D 

IMAGE  P  0 

I  N  T  S 

R  E  S  I  D  U 

(in 

micrometers) 

z+06  *0* 

#3 

#5 

#1 

#2 

#4  #6 

8 

-31 

12 

-4 

-3  -4 

18 

3 

7 

-14 

21  33 

Z-H12  *0* 

#2 

#1 

#4 

#6 

-17 

17 

-23 

-19 

-21 

25 

3 

38 

107 


Naval  Biodynamics  Laboratory  Software  Documentation 


lfc2 

#3 

#5 

#6 

#2 

#4 

-2 

4 

-2 

23 

-14 

-2 

27 

-30 

-2 

12 

lfc5 

#3 

#5 

#4 

#2 

5 

2 

-7 

-1 

-1 

-7 

8 

1 

c8 

#4 

#2 

#6 

#3 

#5 

“1 

0 

13 

15 

-10 

1 

-3 

0 

5 

-2 

d 

#4 

#6 

#3 

#5 

#2 

5 

2 

0 

-27 

-35 

-19 

6 

22 

-18 

15 

e 

#2 

#3 

#6 

#5 

#4 

-36 

-4 

3 

-11 

6 

25 

0 

37 

-41 

-15 

rtc4  *0* 

#5 

#3 

#2 

#6 

#4 

-11 

5 

0 

2 

7 

-12 

-1 

21 

-3 

-15 

rtc8  *0* 

#2 

5 

20 

x+06  *0* 

#5 

#3 

#2 

#4 

#6 

-14 

13 

10 

-16 

-15 

-9 

-14 

-9 

-19 

0 

x+24  *0* 

#3 

#6 

#2 

#4 

-14 

48 

-33 

24 

40 

0 

23 

41 

lfc8 

#3 

#6 

#5 

-17 

-10 

3 

10 

0 

-7 

c 

#5 

#6 

#4 

17 

-4 

-1 

9 

12 

-18 

NBDL  GIANT;  15:15 

03/25/92 

azimuth  -  elevation  -  swing 

TRIANGUL 

A  T  E  D 

I  M  i 

IVGE  POINTS 

R 

(in 

micrometers) 

y-12  *0* 

#4 

#6 

#5 

9 

-1 

42 

32 

-25 

-6 

g 

#6 

#5 

-2 

-2 
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"16 

16 

#6 

#5 

"2 

"2 

"19 

17 

#6 

#5 

0 

0 

"3 

3 

Weighted  Sum  of  Squares 
Weighted  Sum  of  Squares 
Weighted  Sum  of  Squares 

Weighted  Sum  of  Squares 
Degrees  of  Freedom . 


(Camera)  = 

0.0 

(Object)  = 

107.0 

(Plates)  = 

206.4 

(Total)  = 

313.5 

.  = 

286 

a  posteriori  Variance  of  Unit  Weight 


1.096 


NBDL  GIANT;  15:15  03/25/92 

azimuth  -  elevation  -  swing 

TRIANGULATED  CAMERA  STATIONS 

( Terrestr ial->Ph ) 


Ident 


Position / Att itude 


Covariance  Matrix 


#1 


#2 


#3 


#4 


X  = 

y  = 
z  = 

Azim.  =  19 

Elev.  ="  28 
Swing  =  04 

X  = 

Y  = 

Z  = 

Azim.  =  332 
Elev.  =-  29 
Swing  =-  01 

X  = 

Y  = 

Z  = 

Azim.  =299 
Elev.  =-“  28 
Swing  =  00 

X  = 

y  = 

z  = 

Azim.  =  246 
Elev.  =-  26 
Swing  =-  01 


"0.4202  m. 
"1.2981  m. 

0.9382  m. 
50  43.9750 
07  18.6050 

19  19.1519 

0.9591  m. 
"1.2663  m. 

0.9626  m. 
52  40.0853 
29  36.4430 
57  52.1536 

1 . 8605  m. 
"0.3919  m. 

0.9121  m. 
35  47.0441 
25  56.5311 
54  35.2447 

1.8857  m. 
1.1240  m. 
0.8633  m. 
54  29.5476 

20  3.8353 
42  27.3195 


+4.621E-06 

"4.300E-07 

+7.299E-07 

+1.680E-06 

"2.153E-07 

-3.530E-07 

+5.169E-06 

+1.535E-06 

"8.687E-07 

+1.844E-06 

+1.201E-08 

"3.896E-07 

+4.568E-06 

+1.157E-06 

+1.433E-06 

+1.616E-06 

+2.794E-07 

"7.710E-07 

+5.353E-06 

"2.966E-06 

-1.193E-06 

-I-2.624E-06 

+4.737E-07 

"1.147E-07 


“4.300E-07 

+3.703E-06 

+3.339E-07 

"2.153E-07 

+1.680E-06 

"3.530E-07 

+1.535E-06 

+4.188E-06 

+6.254E-07 

+1.201E-08 

+1.844E-06 

"3.896E-07 

+1.157E-06 

+5.927E-06 

+2.108E-07 

+2.794E-07 

+1.616E-06 

"7.710E-07 

"2.966E-06 

+1.203E-05 

+1.526E-06 

+4.737E-07 

+2.624E-06 

"1.147E-07 


+7.299E-07 

+3.339E-07 

+5.628E-06 

-3.530E-07 

"3.530E-07 

+1.426E-06 

"8.687E-07 

+6.254E-07 

+5.765E-06 

"3.896E-07 

"3.896E-07 

+1.152E-06 

+1.433E-06 

+2.108E-07 

+1.063E-05 

"7.710E-07 

"7.710E-07 

+3.511E-06 

"1.193E-06 

+1.526E-06 

+1.123E-05 

"1.147E-07 

"1.147E-07 

+3.989E-06 
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#5 


X  = 

Y  = 

Z  = 

Azim.  =  202 
Elev.  =-  26 
Swing  =-  02 


1.0024  m. 
2.0435  m. 
0.8161  m. 
03  15.2619 
10  27.3019 
24  9.5880 


+1.243E-05 

“2.054E-06 

+1.176E-06 

+2.350E-06 

+2.642E-07 

+3.948E-07 


-2.054E-06 

+6.210E-06 

-9.771E-07 

+2.642E-07 

+2.350E-06 

+3.948E-07 


+1.176E-06 

-9.771E-07 

+1.148E-05 

+3.948E-07 

+3.948E-07 

+1.804E-06 


X 

= 

“0.3616  m. 

Y 

= 

2.0920  m. 

Z 

= 

0.7872  m. 

Azim. 

= 

158 

34  26.3098 

Elev. 

=- 

22 

25  15.6254 

Swing 

=- 

00 

11  47.8227 

+6.813E-06 

+7.454E-07 

+5.804E-07 

+1.428E-06 

+1.194E-07 

+2.166E^07 


+7.454E-07 

+5.103E-06 

-2.669E-07 

+1.194E-07 

+1.428E-06 

+2.166E-07 


+5.804E-07 

-2.669E-07 

+8.967E-06 

+2.166E-07 

+2.166E-07 

+1.300E-06 


SUMMARY  STAT 

I  S  T  I 

C  S  FOR 

CAM 

E 

R  A 

STATIC 

RMS  For 

Standard  Deviations 

X  = 

0.0025  m. 

Azim. 

= 

00 

04  46.0957 

Count  =  6 

Y  = 

0.0025  m. 

Elev. 

= 

00 

06  10.0783 

Z  = 

0.0030  m. 

Swing 

= 

00 

05  5.7246 

NBDL  GIANT 
azimuth  - 

I  dent 

:  15:15  03/25/92 

elevation  -  swing 

TRIANGULA 

Position  (meters) 

TED  OBJECT  POINTS 

Covariance  Matrix 

Page 

Std  Dev  () 

X  = 

0.2977 

+2.299E-07 

+9.901E-09 

+4.550E-08 

0.0005 

a 

Y  = 

0.0099 

+9.901E-09 

+2.498E-07 

“3.700E-08 

0.0005 

Z  = 

“0.0707 

+4.550E-08 

“3.700E-08 

+2.204E-07 

0.0005 

X  = 

0.2988 

+2.460E-07 

+1.038E-08 

+5.062E-08 

0.0005 

b 

Y  = 

0.0088 

+1.038E-08 

+2.727E-07 

-3.958E-08 

0.0005 

Z  = 

“0.1351 

+5.062E-08 

“3.958E-08 

+2.423E-07 

0.0005 

X  = 

0.5555 

+7.041E-07 

+2.934E-07 

+2.662E-07 

0.0008 

c 

Y  = 

0.0766 

+2.934E-07 

+1.328E-06 

+5.841E-07 

0.0012 

Z  = 

-0.3266 

+2.662E-07 

+5.841E-07 

+9.724E-07 

0.0010 

X  = 

0.2991 

+8.934E-07 

“3.066E-08 

+1.136E-07 

0.0009 

d 

Y  = 

0.7227 

-3.066E-08 

+9.283E-07 

+1.612E-07 

0.0010 

Z  = 

“0.1620 

+1.136E-07 

+1.612E-07 

+9.815E-07 

0.0010 

X  = 

0.2996 

t8.979E-07 

“1.685E-08 

+1.165E-07 

0.0009 

e 

Y  = 

0.7200 

-1.685E-08 

+9.408E-07 

+1.944E-07 

0.0010 

Z  = 

“0.2236 

+l,165E-07 

+1.944E-07 

+1.003E-06 

0.0010 

X  = 

0.0549 

+2.085E-06 

+8.680E-07 

+4.311E-07 

0.0014 

g 

Y  = 

-0.9181 

+8.680E-07 

+2.233E-05 

+6.122E-06 

0.0047 

Z  = 

“0.2093 

+4.311E-07 

+6.122E-06 

+4.159E-06 

0.0020 

X  = 

0.6597 

+2.644E-06 

-2.287E-06 

“2.968E-07 

0.0016 

h 

Y  = 

-1.0184 

“2.287E-06 

+2.439E-05 

+5.651E-06 

0.0049 

Z  = 

-0.0603 

-2.968E-07 

+5.651E-06 

+4.248E-06 

0.0021 

no 
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X  = 

0.8362 

+3.492E-06 

-4.007E-06 

-1.737E-06 

0.0019 

i 

y  = 

-0.6713 

-4.007E-06 

+2.451E-05 

+1.099E-05 

0.0050 

z  = 

-0.7043 

-1.737E-06 

+1.099E-05 

+8.327E-06 

0.0029 

X  = 

0.0701 

+6.973E-07 

-1.521E-08 

+5.814E-08 

0.0008 

cl 

y  = 

0.6693 

-1.521E-08 

+7.332E-07 

+2.923E-08 

0.0009 

z  = 

0.0204 

+5.814E-08 

+2.923E-08 

+7.703E-07 

0.0009 

X  = 

0.0197 

+6.996E-07 

+1.284E-08 

+5.225E-08 

0.0008 

c2 

y  = 

0.6681 

+1.284E-08 

+7.990E-07 

+4.640E-08 

0.0009 

z  = 

0.0200 

+5.225E-08 

+4.640E-08 

+7.899E-07 

0.0009 

X  = 

0.0181 

+7.698E-07 

-1.455E-08 

+5.823E-08 

0.0009 

c3 

y  = 

0.7182 

-1.455E-08 

+7.890E-07 

+3.849E-08 

0.0009 

z  = 

0.0163 

+5.823E-08 

+3.849E-08 

+8.665E-07 

0.0009 

X  = 

0.0682 

+7.794E-07 

-2.070E-08 

+6.250E-08 

0.0009 

c4 

y  = 

0.7196 

-2.070E-08 

+8.027E-07 

+3.957E-08 

0.0009 

z  = 

0.0166 

•f6.250E-08 

+3.957E-08 

+8.691E-07 

0.0009 

X  = 

0.0706 

+7.813E-07 

+9.717E-09 

+9.401E-08 

0.0009 

c5 

y  = 

0.6656 

+9.717E-09 

+7.551E-07 

+3.135E-08 

0.0009 

z  = 

-0.0303 

+9.401E-08 

+3.135E-08 

+8.187E-07 

0.0009 

NBDL  GIANT 

:  15:15 

03/25/92 

Page  10 

azimuth  - 

elevation  -  swing 

T  ] 

R  I 

ANGOLA 

TED  OB 

J  E  C  T 

POINTS 

Ident 

Position  (meters) 

Covariance  Matrix 

Std  Dev  (m 

X 

= 

0.0190 

+8.134E-07 

+5.276E-08 

+7.591E-08 

0.0009 

c7 

.  y 

= 

0.7157 

+5.276E-08 

+9.010E-07 

+1.313E-07 

0.0009 

Z 

-0.0337 

+7.591E-08 

+1.313E-07 

+9.307E-07 

0.0010 

X 

= 

0.0688 

+8.108E-07 

-1.775E-08 

+7.721E-08 

0.0009 

c8 

y 

= 

0.7164 

-1.775E-08 

+8.125E-07 

+9.019E-08 

0.0009 

z 

= 

-0.0336 

+7.721E-08 

+9.019E-08 

+8.989E-07 

0.0009 

X 

0.0252 

+1.039E-07 

+6.685E-10 

+9.451E-09 

0.0003 

spl 

*0*  y 

= 

-0.0252 

+6.685E-10 

+1.210E-07 

-9.075E-09 

0.0003 

z 

rs 

0.0259 

+9.451E-09 

-9.075E-09 

+9.794E-08 

0.0003 

X 

=: 

-0.0256 

+1.060E-07 

+2.951E-10 

+9.440E-09 

0.0003 

sp2 

*0*  y 

-0.0250 

+2.951E-10 

+1.239E-07 

-9.308E-09 

0.0004 

z 

=: 

0.0256 

+9.440E-09 

-9.308E-09 

+1.007E-07 

0.0003 

X 

= 

-0.0255 

+1.061E-07 

+2.216E-10 

+9.460E-09 

0.0003 

*0*  y 

= 

0.0254 

+2.216E-10 

+1.253E-07 

-8.661E-09 

0.0004 

z 

= 

0.0255 

+9.460E-09 

-8.661E-09 

+9.997E-08 

0.0003 

X 

=: 

0.0249 

+1.039E-07 

+4.784E-10 

+9.529E-09 

0.0003 

sp4 

*0*  y 

= 

0.0253 

+4.784E-10 

+1.224E-07 

-8.430E-09 

0.0003 

z 

= 

0.0256 

•f9.529E-09 

-8.430E-09 

+9.729E-08 

0.0003 

X 

0.0653 

+9.585E-07 

-3.486E-08 

+7.054E-08 

0.0010 

Ifcl 

y 

= 

0.8193 

-3.486E-08 

+9.462E-07 

+6.130E-08 

0.0010 
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Z  = 

0.0114 

+7.054E-08 

+6.130E-08 

+1.086E-06 

0.0010 

X  == 

0.0152 

+9.840E-07 

-2.798E-08 

+7.667E-08 

0.0010 

lfc2 

y  = 

0.8187 

-2.798E-08 

+9.445E-07 

+7.842E-08 

0.0010 

z  = 

0.0111 

+7.667E-08 

+7.842E-08 

+1.113E-06 

0.0011 

X  = 

0.0145 

+1.044E-06 

-3.305E-08 

+6.874E-08 

0.0010 

lfc3 

y  = 

0.8687 

-3.305E-08 

+1.002E-06 

+7.181E-08 

0.0010 

z  = 

0.0085 

+6.874E-08 

+7.181E-08 

+1.205E-06 

0.0011 

X  = 

0.0646 

+1.144E-06 

-1.906E-08 

+1.163E-07 

0.0011 

lfc4 

y  = 

0.8699 

-1.906E-08 

+1.056E-06 

+5.492E-08 

0.0010 

z  = 

0.0088 

+1.163E-07 

+5.492E-08 

+1.261E-06 

0.0011 

X  = 

0.0662 

+1.159E-06 

+5.931E-09 

+1.777E-07 

0.0011 

lfc5 

y  = 

0.8170 

+5.931E-09 

+9.900E-07 

+9.966E-08 

0.0010 

z  = 

-0.0394 

+1.777E-07 

+9.966E-08 

+1.205E-06 

0.0011 

X  = 

0.0156 

+1.060E-06 

-1.282E-07 

+1.681E-08 

0.0010 

lfc6 

y  = 

0.8152 

-1.282E-07 

+1.310E-06 

+1.468E-07 

0.0011 

z  = 

-0.0391 

+1.681E-08 

+1.468E-07 

+1.219E-06 

0.0011 

X  = 

0.0648 

+1.120E-06 

-2.761E-08 

+7.216E-08 

0.0011 

lfc8 

y  = 

0.8673 

-2.761E-08 

+1.225E-06 

+2.379E-07 

0.0011 

z  = 

-0.0411 

+7.216E-08 

+2.379E-07 

+1.356E-06 

0.0012 

NBDL  GIANT 

:  15 

:15 

03/25/92 

Page  11 

azimuth  - 

elevation  -  swing 

T  R  I 

A  N  G  U  L  A 

TED  OB 

J  E  C  T  ] 

POINTS 

I  dent 

Position  (meters) 

Covariance  Matrix 

Std  Dev  (m 

X 

0.0252 

+1.185E-07 

+2.364E-09 

+1.289E-08 

0.0003 

rtcl 

*0* 

y 

-0.0249 

+2.364E-09 

+1.258E-07 

-1.547E-08 

0.0004 

z 

-0.0250 

+1.289E-08 

-1.547E-08 

+1.123E-07 

0.0003 

X 

-0.0247 

+1.204E-07 

-1.159E-08 

+9.750E-09 

0.0003 

rtc2 

*0* 

y 

= 

-0.0250 

-1.159E-08 

+1.464E-07 

-2.257E-08 

0.0004 

z 

= 

-0.0261 

+9.750E-09 

-2.257E-08 

+1.243E-07 

0.0004 

X 

= 

-0.0252 

+1.269E-07 

+1.950E-08 

+1.351E-09 

0.0004 

rtc3 

*0* 

y 

0.0251 

+1.950E-08 

+1.742E-07 

-1.537E-09 

0.0004 

z 

= 

-0.0255 

+1.351E-09 

-1.537E-09 

+1.269E-07 

0.0004 

X 

— 

0.0253 

+1.318E-07 

-4.612E-09 

+1.911E-08 

0.0004 

rtc4 

*0* 

y 

= 

0.0250 

-4.612E-09 

+1.357E-07 

+1.511E-09 

0.0004 

z 

= 

-0.0253 

+1.911E-08 

+1.511E-09 

+1.163E-07 

0.0003 

X 

— 

-0.0246 

+1.454E-07 

-7.271E-09 

+5.408E-09 

0.0004 

rtc6 

y 

-0.0254 

-7.271E-09 

+1.950E-07 

-4.951E-08 

0.0004 

z 

= 

-0.0767 

+5.408E-09 

-4.951E-08 

+1.741E-07 

0.0004 

X 

_ 

-0.0246 

+1.795E-07 

+1.749E-08 

-1.396E-08 

0.0004 

rtc7 

*0* 

y 

=: 

0.0256 

+1.749E-08 

+2.335E-07 

-4.602E-08 

0.0005 

z 

= 

-0.0756 

-1.396E-08 

-4.602E-08 

+2.085E-07 

0.0005 
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X 

0.0254 

+2.063E-07 

-2.994E-08 

+2.360E-08 

0.0005 

rtc8 

*0* 

Y 

0.0252 

-2.994E-08 

+2.257E-07 

-3.314E-08 

0.0005 

Z 

= 

-0.0765 

+2.360E-08 

-3.314E-08 

+2.116E-07 

0.0005 

X 

0.1513 

+1.271E-07 

-5.154E-09 

+1.909E-08 

0.0004 

x+06 

*0* 

y 

= 

0.0000 

-5.154E-09 

+1.306E-07 

-3.167E-10 

0.0004 

z 

= 

0.0008 

+1.909E-08 

-3.167E-10 

+1.126E-07 

0.0003 

X 

0.3033 

+1.137E-07 

+8.661E-10 

+9.999E-09 

0.0003 

x+12 

*0* 

Y 

= 

-0.0005 

+8.661E-10 

+1.262E-07 

-7.340E-09 

0.0004 

z 

= 

0.0009 

+9.999E-09 

-7.340E-09 

+1.101E-07 

0.0003 

X 

0.4566 

+1.351E-07 

+3.873E-10 

+9.812E-09 

0.0004 

x+18 

*0* 

y 

-0.0005 

+3.873E-10 

+1.464E-07 

-7.028E-09 

0.0004 

z 

= 

0.0003 

+9.812E-09 

-7.028E-09 

+1.365E-07 

0.0004 

X 

0.6075 

+1.788E-07 

-4.605E-09 

+1.159E-08 

0.0004 

x+24 

*0* 

Y 

0.0000 

-4.605E-09 

+1.882E-07 

-5.868E-09 

0.0004 

z 

= 

-0.0017 

+1.159E-08 

-5.868E-09 

+1.825E-07 

0.0004 

X 

= 

-0.0003 

+1.172E-07 

+6.907E-10 

+8.754E-09 

0.0003 

y+06 

*0* 

Y 

= 

0.1520 

+6.907E-10 

+1.351E-07 

-5.050E-09 

0.0004 

Z 

= 

0.0002 

+8.754E-09 

-5.050E-09 

+1.132E-07 

0.0003 

X 

-0.0001 

+1.517E-07 

+1.086E-09 

+6.269E-09 

0.0004 

y+12 

*0* 

Y 

= 

0.3043 

+1.086E-09 

+1.610E-07 

-6.024E-10 

0.0004 

Z 

0.0008 

+6.269E-09 

-6.024E-10 

+1.571E-07 

0.0004 

NBDL  GIANTS  15:15  03/25/92  Page  12 

azimuth  -  elevation  -  swing 

TRIANGULATED  OBJECT  POINTS 

Ident  Position  (meters)  Covariance  Matrix  Std  Dev  (m) 


X 

= 

0.0004 

+1.245E-07 

-5.917E-10 

+4.709E-09 

0.0004 

y-06 

*0* 

y 

-0.1518 

-5.917E-10 

+1.532E-07 

-1.987E-08 

0.0004 

z 

= 

0.0002 

+4.709E-09 

-1.987E-08 

+1.351E-07 

0.0004 

X 

0.0007 

-fl.926E-07 

+1.749E-08 

+9.474E-09 

0.0004 

y-12 

*0* 

Y 

= 

-0.3052 

+1.749E-08 

+2.329E-07 

+1.667E-08 

0.0005 

z 

= 

0.0000 

+9.474E-09 

+1.667E-08 

+1.929E-07 

0.0004 

X 

-0.0007 

+1.086E-07 

+9.350E-10 

+8.399E-09 

0.0003 

z+06 

*0* 

Y 

= 

0.0004 

+9.350E-10 

+1.323E-07 

-7.803E-09 

0.0004 

Z 

= 

0.1513 

+8.399E-09 

-7.803E-09 

+9.708E-08 

0.0003 

X 

— 

-0.0007 

+1.390E-07 

+1.416E-09 

+5.661E-09 

0.0004 

z+12 

*0* 

Y 

0.0006 

+1.416E-09 

+1.869E-07 

-1.030E-08 

0.0004 

Z 

= 

0.3039 

+5.661E-09 

-1.030E-08 

+1.253E-07 

0.0004 

U  M  M 

A  R 

Y 

S  T  A  T  I  S 

TICS  ] 

FOR  OBJECT 

POINTS 

RMS  For  Standard  Deviations 


Count  =22  X  =  0.0010  meters 

Count  =22  Y  =  0.0020  meters 
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Count  =22  Z  = 


0.0013  meters 


NBDL  GIANT;  15:15  03/25/92 

azimuth  -  elevation  -  swing 


Page  13 


ION 

S 

A  P  P  L  I  E  : 

D 

T  O 

O  B 

J 

ECT  CONTR 

X 

— 

-0.0002 

m 

X 

=  -0.0002  m 

rtcl 

Y 

= 

0.0005 

m 

spl 

Y 

=  0.0002  m 

Z 

= 

0.0004 

m 

Z 

=  0.0005  m 

X 

-0.0015 

m 

X 

=  -0.0001  m 

x+12 

Y 

= 

-0.0005 

m 

y+12 

Y 

=  —0.0005  m 

Z 

= 

0.0009 

m 

Z 

=  0.0008  m 

X 

-0.0007 

m 

X 

=  0.0007  m 

2  +  12 

Y 

= 

0.0006 

m 

y-12 

Y 

=  -0.0004  m 

Z 

= 

-0.0009 

m 

Z 

=  0.0000  m 

X 

0.0007 

m 

X 

=  -0.0002  m 

rtc2 

Y 

= 

0.0004 

m 

sp2 

Y 

=  0.0004  m 

Z 

= 

-0.0007 

m 

Z 

=  0.0002  m 

X 

0.0002 

m 

X 

=  —0.0001  m 

rtc3 

Y 

= 

-0.0003 

m 

sp3 

Y 

=  0.0000  m 

Z 

= 

-0.0001 

m 

Z 

=  0.0001  m 

X 

0.0027 

m 

X 

=  —0.0001  m 

x+24 

Y 

= 

0.0000 

m 

rtc4 

y 

=  -0.0004  m 

Z 

= 

-0.0017 

m 

z 

=  0.0001  m 

X 

:= 

-0.0005 

m 

X 

=  -0.0011  m 

sp4 

Y 

= 

-0.0001 

m 

x+06 

Y 

=  0.0000  m 

Z 

= 

0.0002 

m 

Z 

=  0.0008  m 

X 

-0.0003 

m 

X 

=  -0.0007  m 

y+06 

Y 

= 

-0.0004 

m 

2+06 

Y 

=  0.0004  m 

Z 

= 

0.0002 

m 

Z 

=  -0.0011  m 

X 

0.0004 

m 

X 

=  0.0008  m 

y~06 

Y 

= 

0.0006 

m 

rtc6 

Y 

=  0.0000  m 

Z 

= 

0.0002 

m 

Z 

=  -0.0005  m 

X 

0.0008 

m 

X 

=  -0.0006  m 

rtc7 

Y 

= 

0.0002 

m 

x+18 

Y 

=  -0.0005  m 

Z 

= 

0.0006 

m 

Z 

=  0.0003  m 

X 

— 

0.0000 

m 

rtc8 

Y 

= 

-0.0002 

m 

Z 

-0.0003 

m 

.  Number 

Of 

Components  = 

21 

RMS  = 

0.0008  meters 

.  Number 

of 

Components  = 

21 

RMS  = 

0.0004  meters 

.  Number 

of 

Components  = 

21 

RMS  = 

0.0006  meters 
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Appendix  C 
Program  Listings 


XPREP  Program  Listing 

F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12  Page  1 

PROGRAM  XPREP  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 

1  PROGRAM  XPREP 

2  WRITE  (*,*)  '  Enter  1  for  HEAD  digitization  ' 

3  WRITE  (*,*)  '  Enter  2  for  BODY  digitization  ' 

4  READ  (*,*)  I 

5  IFd.EQ.DCALL  HEAD 

6  IF(I,EQ,2)CALL  BODY 

7  END 


F77L  -  Lahey  FORTRAN  77,  Version  5-01  20  Apr  93  14:51:12  Page  2 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/N1C/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 

8 
9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36  C 

37  C  ALTEK  DIGITIZER  4-BUTTON  KEY  CONTROL  MEANINGS: 

38  C  #2:RED=ERROR-BACKUP 

39  C  #4:BLUE=???  #1 :YELLOW=MISSING 

40  C  #3:GREEN=FIDUCIAL  or  DATA  POINT 

41  C . 

42  NHED=19 


SUBROUTINE  HEAD 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER  DATA*17,  fn1*12,  fn2*12,  fn3*12,  fn4*12 

CHARACTER*8  IFRAM(6), IDCAL(2, 19), IDHED(19),  IDPT,  DAY 

CHARACTER  JTITLE*42 

COMMON  /TITLEP/  JTITLE,  I  Page 

INTEGER  IDFD(IO),  IBUTT, I  FID, IRED, IX, lY 

REAL*8  XYC2,21,3),  CALFID<2, 10,2) 

logical  if  lag 

EXTERNAL  SYSTEM 

INTRINSIC  CHAR,DFLOAT,  DSIN,  DCOS,  DSQRT 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3,  NFID 

DATA  IFRAM  /'A/Pprism' , 'LATprism' , 

'A/Phrv90' , aAThrv90' , 'A/Phrv45' , 'LAThrv45'/ 

DATA  IDCAL  /'c3' , 'c5' ,2*'cl3' , 'c4' , 'c8' ,2*'c1 1 ' ,2*'cl0' ,2*'c9' , 
'c2','c6',2*'c12','c1','c7',2*'cv1',2*'cv2',2*'cv3', 
2*'cv4' ,2*'cv5' ,2*'cv6' ,2*'cv7' ,2*'cv8' ,2*'cv9',2*'cv10V 
DATA  IDHED  /' lam' ,' ram' ,' lon' ,' ron' , Utp' ,' rtp' , 'ctp' , 'chin' , 

.  ' ItuskF' , ' ItuskM' , ' ItuskR' , 'rtuskF' , 'rtuskM' , 'rtuskR' , 

'capLfF','capLfR','capRtF','capRtR','capCEN'/ 

DATA  CALFID/-147.150,  190-190,-160.380,  77.030,-158.830,  -77.220, 

-146.442,-192.510,  5.760,  190.060,  5.990,-191.570, 

157.980,  190.490,  146.070,  75.380,  147.920,  -77.730, 

158.540,-191.520,-148.160,  193.950,-162.380,  80.380, 

-164.310,  -75.670,-148.961,-191.214,  5.010,  193.920, 

4.800,-192.310,  159.210,  193.010,  147.600,  80.050, 

144.880,  -75.390,  158.520,-192.720/ 
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43  1  Page=0 

44  WRITE  (*,*)  '  Enter  COMM  Port  number:  ' 

45  READ  (*,*)  Icmm 

46  ictnm=icitim'48 

47  CALL  SYSTEM  ('MODE  COM'//char(icmm)//' :9600, 0,7,2' ) 

48  OPEN  (11, FILE  ='COM'//char(icmm),  ACCESS= ' TRANSPARENT ' ) 

49  C 

50  WRITE  (*,*)  '  Enter  HRV  number:  ' 

51  READ  (*,*)  IHRV 

52  WRITE  (*,*) 

53  WRITE  (FN1,  '(I4.4,"HEAD.0UT")')IHRV 

54  WRITE  (FN2,  '( 14.4, "head.  132" )' )IHRV 

55  WRITE  (FN3,  '(14.4,  "himg.dat" )' )IHRV 

56  WRITE  (FN4,  '(14.4,  "head. in" )' )IHRV 


F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 


57 

OPEN  (  8, FILE  =FN2) 

58 

OPEN  (  9, FILE  =FN3) 

59 

OPEN  (10, FILE  =FN1) 

60 

OPEN  (12, FILE  =FN4) 

61 

CALL  DATE  (DAY) 

62 

WRITE  (JTITLE, 

63 

.'("  HRV  #  ",I5.5," 

Date:  ",A8,"  HEAD  ")')  IHRV 

64 

C 

Read  order  of  transformation 

65 

WRITE  (*,*)  '  Enter  number  of  parameters  for  shrinkage  fit:  ' 

66 

READ  (*,*)  IOPT1 

67 

WRITE  (*,*) 

68 

units=25.4d-3 

69 

SDX  =  .75 

70 

SDY  =  .75 

71 

IF  (IOPT1.GT.6)IOPT1=8 

72 

ICH3S=0 

73 

IF  (IOPT1.LE.3)  THEN 

74 

ICH3S=1 

75 

I OPT 1=3 

76 

END  IF 

77 

C 

IOPT3=0 

78 

C 

NRED  indicates  the  number  of  replications  of  plate  coordinates 

79 

NRED=1 

80 

C 

81 

1 

WRITE  (* ,*)  '  Enter  0  when  finished' 

82 

WRITE  (*,*)  '  Enter  1  if 

A/p  /  CALIBRATION  PRISM' 

83 

WRITE  (*,*)  '  Enter  2  if 

LAT  /  CALIBRATION  PRISM' 

84 

WRITE  (*,*)  '  Enter  3  if 

A/P  /  HRV  /  90  deg' 

85 

WRITE  (*,*)  '  Enter  4  if 

LAT  /  HRV  /  90  deg' 

86 

WRITE  (*,*)  '  Enter  5  if 

A/P  /  HRV  /  45  deg' 

87 

WRITE  (*,*)  '  Enter  6  if 

LAT  /  HRV  /  45  deg' 

88 

WRITE  (*,*) 

89 

READ  (*,*)  IANS 

90 

if ( ians.eq.O)  go  to  999 

91 

c 

92 

c 

Input  data  for  the  Preprocessing  Program: 

93 

c 

3,  4,  5,  6,  8  in  col.  1 

Three( etc) -parameter  transformation 

94 

c 

95 

c 

Calibrated  Fiducial  Coordinates  in  FORMAT  (2X, I4,4X,2F10-4) 

96 

c 

97 

c 

Radial  Lens  Distortion  Function: 

98 

c 

Coefficients  FKO,  FK1 

FORMAT  (2D20.10) 

99 

c 

Coefficients  FK2,  FO 

FORMAT  (2D20.10) 

100 

c 

Page  3 
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101  CALL  CLEAR 

102  C 

103  FOCAL=  -889. DO 

104  IF  (MOD(IANS,2).EQ.1)  FOCAL=  -1820.00 

105  CALL  NEUPAG 


F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1 /NA2/NB/NC/C1 /ND/NE/N  F/H/ 1 /NK/N  L/P/NQ 1 /R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 


106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 


WRITE  (8,1400)  IFRAM(IANS) 

WRITE  (10,2400)IFRAM(IANS) 

write  (12,  '(i1,  9x,  3f10-3)' )iopt1 ,  focal,  sdx,  sdy 
C 

C  Write  Calibrated  Fiducial  Coordinates 
C 


JFID=2-MOD(IANS,2) 
do  8  ifid=1,  10 

WRITE  (  8,1420)  I FID,CALFID(1 , IFID, JFID),CALFID(2, 1  FID, JFID) 
WRITE  (10,2420)  I FID,CALFID(1 , 1  FID, JFID),CALFID(2, 1  FID, JFID) 
8  WRITE  (12,1410)  IFID,CALFID(1 , 1  FID, JFID),CALFID(2, 1  FID, JFID) 
write  (12,  '(////)') 


C 

C  Read  &  Write  Frame  ID 
C 


WRITE  (  9,1516)  IFRAM(IANS),  FOCAL,  SOX,  SDY 
WRITE  (12, '(A8)')  IFRAM(IANS) 

CALL  NEWPAG 

WRITE  (  8,1380)  IFRAM(IANS) 

WRITE  (10,2380)  IFRAM(IANS) 

NRED=1 


Q********************************^************************************i*r***** 


C  start  major  loop  for  digitizing  x-rays: 
if lag=.true. 

DO  40  IRED=1,NRED 
IF1D=1 

10  READ  (11)  DATA 

WRITE  (*,*)  CHAR(7) 


C 

C  DECODE  data  from  CHARACTER  to  INTEGER 
C 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 


READ  (DATA,  20)  IBUTT,IX,1Y 
20  FORMAT  ( 1 1 , IX, 16, IX, 16) 


C 

C  Interpret  action  to  take  based  on  which  button  was  pressed: 

IF  (IBUTT  .EQ.  3)  THEN 

XY(1,IFID,IRED)=IX*units 

XY(2,IFID,IRED)=IY*units 

WRITE  (*,30)  'FIDUCIAL', IFID, XY(1, IFID, IRED),XY(2, IFID, IRED) 
30  FORMAT  ('  ' ,A, IX, I3,2X,F8.4,2X, F8.4) 

if (if lag)then 
isavex=ix 


isavey=iy 
if lag=. false, 
end  if 


IFID=IFID+1 

ELSEIF  (IBUTT  .EQ.  2)  THEN 
IFID=IFID-1 
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F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12  Page  5 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1 /NA2/NB/NC/C1 /ND/NE/N  F/H/ 1 /NK/NL/P/NQ1 /R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 


155 

WRITE  (*,*)  'Backing  up  one  to  FIDUCIAL 

156 

WRITE  (*,*)  CHAR(7),CHAR(7) 

157 

ELSEIF  (IBUTT  .EQ.  1)  THEN 

158 

XY{1,IFID,IRED)=-1. 

159 

XY(2,IFID,IRED)=-1. 

160 

WRITE  (*,*)  'MISSING  ',  IFID 

161 

IFID=IFID+1 

162 

ELSE 

163 

WRITE  (*,*)  'Not  an  option.  Redo' 

164 

END  IF 

165 

IF  (IFID  .LE.  10)  GO  TO  10 

166 

40 

CONTINUE 

167 

C 

168 

C  Write  out  the  raw  data  to  rau.dat 

169 

DO  60  IFID=1,10 

170 

IF  {XY(1,IFID,1).GT.0)  WRITE  (12,50)  IFID,( 

171 

XY(2, IFID, IRED), IRED=1 ,NRED) 

172 

50 

FORMAT  (6X,I4,S,6F10.3) 

173 

60 

CONTINUE 

174 

WRITE  (12,*) 

175 

C 

176 

IFID=0 

177 

DO  200  K=1,10 

178 

C 

179 

C  Read  measured  fiducial  coordinates 

180 

C 

181 

IFID=IFID+1 

182 

80 

IF  (IFID. GT. 10)  GO  TO  210 

183 

IF  (XY(1,IFID,1).LE.0)  then 

184 

IFID=IFID+1 

185 

GO  TO  80 

186 

ENDIF 

187 

KK=IFID 

188 

XHAX=0.0D0 

189 

YMAX=0.000 

190 

XMIN=1000.0D0 

191 

YMIN=1000.0D0 

192 

SUMX=0.0D0 

193 

SUMY=0.0D0 

194 

DO  100  J=1,NRED 

195 

X=XY(1,IFID,J) 

196 

Y=XY(2,IFID,J) 

197 

IF  (X.EQ.O.AND.Y.EQ.O)  GO  TO  110 

198 

SUMX=SUMX+X 

199 

SUMY=SUHY+Y 

200 

IF  (NRED.EQ.1)  GO  TO  100 

201 

IF  (XMAX.LT.X)  XMAX=X 

202 

IF  (XMIN.GT.X)  XMIN=X 

203 

IF  (YMAX.LT.Y)  YMAX=Y 

',IFID 


F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12  Page  6 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 


204 

IF  (YMIN.GT.Y)  YMIN: 

205 

100 

CONTINUE 

206 

IF  (NRED.NE.1)  GO  TO  120 

207 

110 

XMIN=0.0D0 
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208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 


YMIN=0,0D0 
120  J=:NRED 

IF  (J.EQ.O)  J=1 

XT=SUMX/J 

YT=:SUMY/J 

C  store  averaged  digitized  coordinates 
OBSCOR(1,K)=XT 
0BSC0R(2,K)=YT 

CALCOR(1,K)=CALFID(1,KK,JFID) 

CALCOR(2,K)=CALFID(2,KK,JFID) 

IDFD(K)=ICK 

WRITE  (  8,1540)  KK,XT,YT,XMAX-XMIN,YMAX-YHIN 
WRITE  (10,2540)  KK,XT,YT,XMAX-XMIN,YMAX-YMIN 
200  CONTINUE 
C 

C  Compute  the  3-Parameter  Check  Transformation. 

C 

210  NFID=K-1 
ICH3S=1 
CALL  FOURP 

WRITE  (*,*)'  3-Parameter  Check  Transformation' 
rmsx=0 . 
rmsy=0 . 

DO  220  I=1,NFID 
X=OBSCOR(1,I) 

Y=0BSC0R(2  I) 

XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL{4)+Y*DEL(5)+1.0)-CALCOR(1,I) 
YT=(X*DEL(6)+Y*DEL{7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1 .0)-CALC0R(2, I ) 
KK=IDFD(I) 

WRITE  (  *,2560)  KK,XT,YT 
rmsx=rmsx+xt*xt 
rmsy=rmsy+yt*yt 
220  CONTINUE 

rmsx3=dsqrt ( rmsx/nf id) 
rmsy3=dsqrt ( rmsy/nf id) 
write  (*,230)rmsx,  rmsy 
230  format  ('  rms=  ',2f7.3) 

WRITE  (*,*) 

WRITE  (*,*)iopt1, '-Parameter  Transformation' 
rmsx=0 . 
rmsy=0 . 

C 

C  Compute  the  Multi -Parameter  Transformation. 

ICH3=ICH3S 

IF  (IOPT1.LE.5)  CALL  FOURP 


F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 

253  IF  (IOPT1.EQ.5)  CALL  FIVEP 

254  IF  (IOPT1.EQ.6)  CALL  SIXP 

255  IF  (IOPT1.EQ.8)  CALL  EIGHTP 

256  WRITE  (  8,1550)  IOPT1 

257  WRITE  (10,2550)  IOPT1 

258  C 

259  C  Compute  Residuals  For  the  Fiducial  Coordinates 

260  C 

261  DO  240  I=1,NFID 

262  X=OBSCOR(1,I) 

263  Y=OBSCOR(2,I) 

264  XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1.0)-CALCOR(1,I) 

265  YT=(X*DEL(6)+Y*DEL(7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1.0)-CALCOR(2,I) 
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266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 


KK=IDFD(I) 

WRITE  (  8,1560)  KK,XT,YT 
WRITE  (10,2560)  KK,XT,YT 
WRITE  (  *,2560)  KK,XT,YT 
rmsx=rmsx+xt*xt 
rmsy=rmsy+yt*yt 
240  CONTINUE 


rmsx=dsqr t ( rmsx/nf i d ) 
rmsy=dsqrt ( rmsy/nf id) 
write  (*,230)rmsx,  rmsy 

write<  8,  1545)rmsx,  rmsy,  rmsx3,  rmsy3,  del 
writedO,  2545)rmsx,  rmsy,  rmsx3,  rmsy3,  del 
1545  FORMAT(/43X,'RMS',2F15.3/43X,'RMS(CHECK)',F8,3,  F15.3/ 

/45X, 'TRANSFORMATION  PARAMETERS  ARE: '/33X,2F11 .6, F1 1 .4, 
2F11-6/33X,2F11.6,F11,4//) 

2545  FORMAT(/23X,'Rms',2F15-3/23X,'Rms<check)',F8.3,  F15,3/ 

-  /25X, 'Transformation  Parameters  Are:'/13X,2F11.6,F11.4, 

2F11.6/13X,2F11.6,F11,4) 


CALL  NEWPAG 

IF  (NRED  .GT.  1)  WRITE  (8,1570)  IFRAM(IANS) 
IF  (NRED  .GT.  1)  WRITE  (10,2570)IFRAM(IANS) 
IF  (NRED  .EQ.  1)  WRITE  (8,1575)  IFRAM(IANS) 
IF  (NRED  .EQ.  1)  WRITE  (10,2575)IFRAM(IANS) 
PAUSE 


Q********************************************************************* 


IF  (IANS.GE.3)  GO  TO  500 

C  Compute  the  Averaged  Coordinates  of  the  Calibration  Prism 
C 

C1250  READ  (  7,1580)  IDPT, ((TEMPM1 (I , J), 1=1 ,2), J=1 ,NRED) 

DO  260  IRED=1,NRED 
ICAL=1 

250  READ  (11)  DATA 

WRITE  (*,*)  CHAR(7) 


C 

C  DECODE  data  from  CHARACTER  to  INTEGER 
C 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 
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303  READ  (DATA,  20)  IBUTT,IX,IY 

304  C 

305  C  Interpret  action  to  take  based  on  which  button  was  pressed: 

306  IF  (IBUTT  .EQ.  3)  THEN 

307  XY(1,ICAL,IRED)=IX*units 

308  XY(2,ICAL,IRED)=IY*units 

309  WRITE  (*,30)'CAL.  PT.',ICAL,XY(1,ICAL,IRED),XY(2,ICAL,IRED) 

310  ICAL=ICAL+1 

311  ELSEIF  (IBUTT  .EQ.  2)  THEN 

312  ICAL=ICAL-1 

313  WRITE  (*,*)  'Backing  up  one  to  CAL.  PT.  #  ',ICAL 

314  WRITE  (*,*)  CHAR(7),CHAR(7) 

315  ELSEIF  (IBUTT  .EQ.  1)  THEN 

316  XY(1,ICAL,IRED)=-1. 

317  XY(2,ICAL,IRED)=-1. 

318  WRITE  (*,*)  'HISSING  ',  ICAL 

319  ICAL=ICAL+1 

320  ELSE 

321  WRITE  (*,*)  'Not  an  option.  Redo' 

322  END  IF 

323  IF  (ICAL  .LE.  19)  GO  TO  250 
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324  260  CONTINUE 

325  C 

326  DO  280  ICAL=1,19 

327  IF  (XY(1,ICAL,1).GT.O)  WRITE  (12,270)  IDCALdANS, ICAL), 

328  .  (XY(1, ICAL, IRED),XY(2, ICAL, IRED),IRED=1,NRED) 

329  270  FORMAT  (2X,A8,1X,S,6(F9.4,1X)) 

330  280  CONTINUE 

331  WRITE  (12,*) 

332  C 

333  ICAL=0 

334  DO  390  K=1,19 

335  C 

336  C  Process  measured  calibration  prism  coordinates 

337  C 

338  ICAL=ICAL+1 

339  290  IF  (ICAL. GT. 19)  GO  TO  400 

340  IF  (XY(1,ICAL,1).LE.0)  then 

341  ICAL=ICAL+1 

342  GO  TO  290 

343  END  IF 

344  KK=ICAL 

345  XMAX=0.0D0 

346  YHAX=0.0D0 

347  XMIN=1000.0D0 

348  YMIN=1000.0D0 

349  SUMX=0.0D0 

350  SUHY=0.0D0 

351  DO  300  J=1,NRED 
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352 

X=XY(1,ICAL,J) 

353 

Y=XY(2,ICAL,J) 

354 

IF  (X-EQ-O.AND.Y.EQ.O)  GO  TO  310 

355 

SUMX=SUMX+X 

356 

SUMY=SUMY+Y 

357 

IF  (NRED.EQ.I)  GO  TO  300 

358 

IF  (XMAX.LT.X)  XMAX=X 

359 

IF  (XMIN.GT.X)  XMIN=X 

360 

IF  (YMAX.LT.Y)  YMAX=Y 

361 

IF  (YMIN.GT.Y)  YMIN=Y 

362 

300 

CONTINUE 

363 

IF  (NRED.NE.1)  GO  TO  320 

364 

310 

XMIN=0.0D0 

365 

YMIN=0.0D0 

366 

320 

J=NRED 

367 

IF  (J.EQ.O)  J=1 

368 

X=SUMX/J 

369 

Y=SUMY/J 

370 

XM=XMAX-XMIN 

371 

YM=YMAX’YMIN 

372 

IDPT=IDCAL(IANS,KK) 

373 

C 

374 

C  Correct  Measured  Coordinates  for  Film  Shrinkage 

375 

C 

376 

XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1 

377 

YT=(X*DEL(6)+Y*DEL(7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1 

378 

C 

379 

IF  (NRED  .GT.  1)  WRITE  (  8,1600)  IDPT,X,Y,XT,YT,XM 

380 

IF  (NRED  .GT.  1)  WRITE  (10,2600)  IDPT,X,Y,XT, YT,XM 

381 

IF  (NRED  .EQ.  1)  WRITE  (  8,1605)  IDPT,X,Y,XT,YT 
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382  IF  (NRED  .EQ.  1)  WRITE  (10,2605)  IDPT.X, Y,XT,YT 

383  C 

384  C  Write  Records  for  Triangulation  Input  to  File:  "img.dat" 

385  C 

386  WRITE  (9,1610)  IDPT,XT,YT,IFRAM(IANS) 

387  390  CONTINUE 

388  C 

389  400  write  (*,*)'  Re-do  first  fiducial' 

390  READ  (11)  DATA 

391  WRITE  (*,*)  CHAR(7) 

392  C 

393  C  DECODE  data  from  CHARACTER  to  INTEGER 

394  C 

395  if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 

396  READ  (DATA,  20)  IBUTT,IX,IY 

397  if(iabs(ix-isavex)+iabs(iy-isavey)  .gt.  3*(rmsx+rmsy)/units)then 

398  write  (*,*)'  You  blew  it',  ix,  iy,  '  vs.',  isavex,  isavey 

399  WRITE  (*,*)  CHAR(7) 

400  WRITE  (*,*)  CHAR(7) 
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401 

go  to  400 

402 

endif 

403 

PAUSE 

404 

WRITE  <9/(A8)')  ********** 

405 

GO  TO  1 

406 

Q********************************************************************** 

407 

C 

408 

C  Compute  the  Averaged  Coordinates  of  the  HRV  head 

409 

C 

410 

500 

DO  560  IRED=1,NRED 

411 

IHED=1 

412 

550 

READ  (11)  DATA 

413 

WRITE  (*,*)  CHAR(7) 

414 

C 

415 

C  DECODE  data  from  CHARACTER  to  INTEGER 

416 

c 

417 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data<2:17) 

418 

READ  (DATA,  20)  IBUTT,IX,IY 

419 

c 

420 

C  Interpret  action  to  take  based  on  which  button  was  pressed: 

421 

IF  (IBUTT  .EQ.  3)  THEN 

422 

XY(1,IHED,IRED)=IX*units 

423 

X Y ( 2 , 1 HED , I  RED ) = I Y*uni ts 

424 

WRITE  (*,555)IDHED(IHED),XY(1,IHED,IRED),XY(2,IHED,IRED) 

425 

555 

FORMAT  (A10,2X,F8.4,2X,F8.4) 

426 

IHED=IHED+1 

427 

ELSEIF  (IBUTT  .EQ.  2)  THEN 

428 

IHED=IHED-1 

429 

WRITE  (*,*)  'Backing  up  one  to  ',IDHED(IHED) 

430 

WRITE  (*,*)  CHAR(7),CHAR(7) 

431 

ELSEIF  (IBUTT  .EQ.  1)  THEN 

432 

XY(1,IHED,IRED)=-1. 

433 

XY(2,IHED,IRED)=-1. 

434 

WRITE  (*,*)  'MISSING  ',  IDHED(IHED) 

435 

IHED=IHED+1 

436 

ELSE 

437 

WRITE  (*,*)  'Not  an  option.  Redo' 

438 

ENDIF 

439 

IF  (IHED  .LE.  NHED)  GO  TO  550 

10 
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440  560  CONTINUE 

441  C 

442  DO  580  IHED=1,NHED 

443  IF  (XY(1,IHED,1).GT.O)  WRITE  (12,270)  IDHED(IHED), 

444  .  (XY(1,IHED,IRED),XY(2,IHED,IRED),IRED=1,NRED) 

445  580  CONTINUE 

446  WRITE  (12,*) 

447  C 

448  IHED=0 

449  DO  690  K=1,NHED 
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450 

C 

451 

C  Process 

measured  head  coordinates 

452 

C 

453 

IHED=IHED+1 

454 

590 

IF  (IHED.GT.NHED)  GO  TO  700 

455 

IF  (XY(1,IHED,1).LE.0)  then 

456 

IHED=IHED+1 

457 

GO  TO  590 

458 

END  IF 

459 

KK=IHED 

460 

XMAX=0.0D0 

461 

YMAX=0.0D0 

462 

XMIN=1000.0D0 

463 

YMIN=1000.0D0 

464 

SUMX=0.0D0 

465 

SUMY=0.0D0 

466 

DO  600  J=1,NRED 

467 

X=XY(1,IHED,J) 

468 

Y=XY(2,IHED,J) 

469 

IF  (X.EQ.O.AND.Y.EQ.O)  GO  TO  610 

470 

SUMX=SUMX+X 

471 

SUMY=SUMY+Y 

472 

IF  (NRED.EQ.1)  GO  TO  600 

473 

IF  (XMAX.LT.X)  XMAX=X 

474 

IF  (XMIN.GT.X)  XMIN=X 

475 

IF  (YMAX.LT.Y)  YHAX=Y 

476 

IF  (YMIN.GT.Y)  YMIN=Y 

477 

600 

CONTINUE 

478 

IF  (NRED.NE.1)  GO  TO  620 

479 

610 

XMIN=0.0D0 

480 

YMIN=0.0D0 

481 

620 

J=NRED 

482 

IF  (J.EQ.O)  J=1 

483 

X=SUMX/J 

484 

Y=SUHY/J 

485 

XM=XMAX-XMIN 

486 

YM=YMAX-YMIN 

487 

IOPT=IDHED(IHED) 

488 

C 

489 

C  Correct 

Measured  Coordinates  for  Film  Shrinkage 

490 

C 

491 

XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1 

492 

YT=(X*DEL(6)+Y*DEL(7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1 

493 

C 

494 

IF  (NRED  .GT,  1)  WRITE  (  8,1600)  IDPT,X,Y,XT,YT,XM 

495 

IF  (NRED  .GT.  1)  WRITE  (10,2600)  IDPT,X, Y,XT,YT,XM 

496 

IF  (NRED  .EQ.  1)  WRITE  (  8,1605)  IDPT,X,Y,XT, YT 

497 

IF  (NRED  .EQ.  1)  WRITE  (10,2605)  IDPT,X,Y,XT, YT 
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498  C 

499  C  Write  Records  for  Tri angulation  Input  to  file:  "img.dat" 
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500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 


WRITE  (  9,1610)  IDPT,XT,YT,IFRAM(IANS) 

690  CONTINUE 
C 

700  i count=0 

710  write  (*,*)'  Re-do  first  fiducial' 

READ  (11)  DATA 
WRITE  (*,*)  CHAR(7) 

C 

C  DECODE  data  from  CHARACTER  to  INTEGER 
C 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 

READ  (DATA,  20)  IBUTT,IX,IY 

if ( iabs( ix- i savex)+iabs( iy- isavey)  .gt .  3*(rmsx+rmsy)/uni ts)then 
write  (*,*)'  You  blew  it',  ix,  iy,  '  vs.',  isavex,  isavey 
WRITE  (*,*)  CHAR(7) 

WRITE  (*,*)  CHAR(7) 
i count =icount+1 
if(icount- le.4)  go  to  710 

write(*,  *)'No  more  tries. . .origin  lost... going  back  to  menu' 
WRITE  (9,'(A8)')  /********' 
go  to  1 
end  if 
PAUSE 

WRITE  (9,'(A8)')  '********' 
go  to  1 
C 

999  CALL  CLEAR 

WRITE  (12, '(A8)')  '********' 

WRITE  (  8,*)CHAR(12) 

WRITE  (10,*)CHAR(12) 

C  FORMATTED  OUTPUT  FOR  132-COLUMN  PAPER: 

C 

1370  FORMAT  (21 1 ,8X,3F10.3) 

1380  FORMAT  (40X, 'FIDUCIAL  MEASUREMENTS  OF  FRAME  ',A8//  36X,'ID', 

.  12X,'AVERAGE',13X,'MAX  SPREAD'/48X, 'X' ,9X, ' Y' , 1 1X, 'X' ,9X, ' Y' ) 
1400  FORMAT  (36X, 'CALIBRATED  FIDUCIAL  COORDINATES  OF  FRAME  ',A8// 

46X,  'FID',  9X,  'X',  12X,  'Y'  ) 

1410  FORMAT  (2X, I4,4X,2F10.4) 

1420  FORMAT  (45X, I4,5X, F8.3,5X, F8.3) 

1440  FORMAT  (2D20.10) 

1445  FORMAT  (3D20.10) 

1450  FORMAT  (//42X,SP, 'CALIBRATED  FOCAL  LENGTH  =  ',F9.3,'  mm.') 

1460  FORMAT  (////51X,SP,'LENS  DISTORTION'//51X, 'RADIAL  PARAMETERS'/31X 
'K0='D15.8D2,'  K1='D15.8D2,'  K2='D15.8D2/51X'K3='D15.8D2 

,//:45X,'LENS  DECENTRATION  PARAMETERS'/31X, ' J1=  'D15.8D2, 

'  J2=  'D15.8D2,'  PHI=  'D15.802/) 

1470  FORMAT  (I2) 

1480  FORMAT  (2F10.3) 

1485  FORMAT  (8X, 'Cal ibrated  Focal  Length  (CFL)  in  millimeters  =  ') 


12 


124 


Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


F77L  -  Lahey  FORTRAN  77,  Version  5.01  20  Apr  93  14:51:12  Page  13 

SUBROUTINE  HEAD  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 

549  1500  FORMAT  (44X,2F13.3) 

550  1510  FORMAT  (6X, 14,6F10.3) 

551  1516  FORMAT  (A8,2X,SP, F10.3: ,SS,2(F10.3), 10X) 

552  1540  FORMAT  (36X, I4,2X,2F10.3,2X,2F10.3) 

553  1550  FORMAT  (//I38, ' -PARAMETER  RESIDUALS  OF  THE  FIDUCIAL  COORDINATES'// 

554  .  43X,  'FID',  11X,  'X',  14X,  'Y'  ) 

555  1560  FORMAT  (42X, I4,2F15.3) 

556  1570  FORMAT  (//42X, 'PLATE  COORDINATES  FOR  FRAME  ' ,A8//22X, ' ID' , 11X, 

557  .  'MEASURED', 13X, 'AD JUSTED', 13X, 'MAX  SPREAD' , 1 IX, ' FRAME'/ 

558  .  34X,'X',9X,'Y',10X,'X',9X,'Y',10X,'X',9X,'Y') 

559  1575  FORMAT  (//42X, 'PLATE  COORDINATES  FOR  FRAME  ' ,A8//38X, ' ID' , 1 IX, 

560  .  'MEASURED', 13X,'ADJUSTED'/50X,'X',9X,'Y',10X,'X',9X,'Y') 

561  1580  FORMAT  (2X,A8,6F10.3) 

562  1600  FORMAT  (18X,A8,2X,2F10.3,1X,2F10.3,1X,2F10.3) 

563  1605  FORMAT  {34X,A8,2X,2F10.3, 1X,2F10.3) 

564  1610  FORMAT  (A8,2X,2F10.4, 15X, 'Photo  ',A8) 

565  C 

566  C  FORMATTED  OUTPUT  FOR  80-COLUMN  PAPER: 

567  C 

568  2380  FORMAT  (20X, 'Fiducial  Measurements  of  Frame  ',A8//  16X, ' ID' ,12X, 

569  .  ' Average', 13X, 'Max  Spread'/28X,'X',9X,'Y',11X,'X',9X,'Y') 

570  2400  FORMAT  (16X, 'Cal ibrated  Fiducial  Coordinates  of  Frame  ',A8// 

571  .  26X,  'Fid',  9X,  'X',  12X,  'Y') 

572  2420  FORMAT  (25X,I4,5X,F8.3,5X,F8.3) 

573  2450  FORMAT  (//25X,SP, 'Cal ibrated  Focal  Length  =  ',F9.3,'  mm.') 

574  2460  FORMAT  (////31X,SP, 'Lens  Distortion'//31X, 'Radial  Parameters '/I IX 

575  .  'K0='D15.8D2,'  K1='D15.8D2, '  K2='D15.802/31X'K3='D15.8D2 

576  .  ,//:25X,'Lens  Decentration  Parameters'/11X,'J1=  'D15.8D2, 

577  .  '  J2=  'D15.8D2,'  PHI=  'D15.8D2/) 

578  2500  FORMAT  (24X,2F13.3) 

579  2540  FORMAT  (16X, I4,2X,2F10.3,2X,2F10.3) 

580  2550  FORMAT  (//I 18, ' -Parameter  Residuals  of  the  Fiducial  Coordinates'// 

581  .  23X,  'Fid',  11X,  'X',  14X,  'Y') 

582  2560  FORMAT  {22X, I4,2F15.3) 

583  2570  FORMAT  (//22X, 'Plate  Coordinates  for  Frame  ',A8//'  ID',11X, 

584  .  'Measured', 13X, 'Adjusted', 13X, 'Max  Spread', 11X, 'Frame'/ 

585  .  17X,'X',9X,'Y',10X,'X',9X,'Y',10X,'X',9X,'Y') 

586  2575  FORMAT  (//22X, 'Plate  Coordinates  for  Frame  ',A8//18X,'ID',11X, 

587  .  'Measured', 13X,'AdJusted'/30X,'X',9X,'Y',10X,'X',9X,'Y') 

588  2600  FORMAT  (X,A8,2X,2F10.3,1X,2F10.3,1X,2F10.3) 

589  2605  FORMAT  (14X,A8,2X,2F10.3,1X,2F10.3) 

590  C 

591  CALL  BEEP 

592  CLOSE  (8) 

593  CLOSE  (9) 

594  CLOSE  (10) 

595  END 
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596 

597  SUBROUTINE  BODY 

598  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

599  CHARACTER  DATA*17,  fn1*12,  fn2*12,  fn3*12,  fn4*12 

600  CHARACTER*8  I FRAM(4), IDB0D(16),  IDPT,  DAY 

601  CHARACTER  JTITLE*42 
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602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 


C 

C 

C 

C 

C 

C 


C 


COMMON  /TITLEP/  JTITLE,  I  Page 
INTEGER  IDFD(IO),  IBUTT, IFID, IRED, IX, lY 

REAL*8  XY(2,21,3),  CALFID{2,10,2) 

logical  iflag 

EXTERNAL  SYSTEM 

INTRINSIC  CHAR.DFLOAT,  DSIN,  DCOS,  DSQRT 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3,  NFID 

DATA  IFRAM  /'LfEyLfSh' , 'RtEyLfSh' ,  'LfEyRtSh' , 'RtEyRtSh'/ 

DATA  IDBOD  /'Origin' , 'Rib_Lf' , 'Rib_Rt' , 'SpineTop' , 'SpineBot' , 
'spine_bb' , 'sternum' ,  ' lf_shold' , ' rt_shold' , 

' I tp' , ' rtp' , ' ctp' , ' IneckT ' , ' IneckB ' , ' rneckT ' , ' rneckB ' / 
DATA  CALFID/-190. 190, -147.150,  -77.030,-160.380,  77.220,-158.830, 

192.510,-146.442,-190.060,  5.760,  191.570,  5.990, 

-190.490,  157.980,  -75.380,  146.070,  77.730,  147.920, 

191.520,  158.540,-193.950,-148.160,  -80.380,-162.380, 
75.670,-164.310,  191.214,-148.961,-193.920,  5.010, 

192.310,  4.800,-193.010,  159.210,  -80.050,  147.600, 

75.390,  144.880,  192.720,  158.520/ 


ALTEK  DIGITIZER  4-BUTTON  KEY  CONTROL  MEANINGS: 

#2  :RED=ERROR- BACKUP 

#4:BLUE=???  #1 :YELLOW=MISSING 

#3:GREEN=FIDUCIAL  or  DATA  POINT 


NBOD=16 
I  Page=0 

WRITE  (*,*)  '  Enter  COMM  Port  number:  ' 

READ  (*,*)  Icmm 
icniii=iciiin+48 

CALL  SYSTEM  ('MODE  COM'//char( icmm)//' :9600, 0,7,2' ) 

OPEN  (11, FILE  ='COM'//char(icnm),  ACCESS='TRANSPARENT' ) 

WRITE  (*,*)  '  Enter  HRV  number:  ' 

READ  (*,*)  IHRV 
WRITE  (*,*) 

WRITE  (FN1,  '(I4.4,"BODY.OUT")')IHRV 
WRITE  (FN2,  '(I4.4,"body.132")')IHRV 
WRITE  (FN3,  '(I4.4,"bimg.dat")')IHRV 
WRITE  (FN4,  '(I4.4,"body.in"  )')IHRV 
OPEN  (  8, FILE  =FN2) 

OPEN  (  9, FILE  =FN3) 

OPEN  (10, FILE  =FN1) 

OPEN  (12, FILE  =FN4) 
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645  CALL  DATE  (DAY) 

646  WRITE  (JTITLE, 

647  .'("  HRV  #  ",I5.5,"  Date:  ",A8,"  BODY(T-1 )" )' )  IHRV,  DAY 

648  C  Read  order  of  transformation 

649  WRITE  (*,*)  '  Enter  number  of  parameters  for  shrinkage  fit:  ' 

650  READ  (*,*)  IOPT1 

651  WRITE  (*,*) 

652  units=25.4d-3 

653  SDX  =  1.0 

654  SDY  =  1.0 

655  IF  (I0PT1.GT.6)I0PT1=8 

656  ICH3S=0 

657  IF  (IOPT1.LE.3)  THEN 

658  ICH3S=1 

659  I OPT 1=3 
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660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 


C 

C 

C 

1 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


END  IF 
IOPT3=0 

NRED  indicates  the  number  of  replications  of  plate  coordinates 
NRED=1 


WRITE  (*,*)  '  Enter  0  when  finished' 

WRITE  (*,*)  '  Enter  1  if:  Left  Eye  View — Left  Shoulder  to  Plate' 

WRITE  (*,*)  '  Enter  2  if:  Right  Eye  View-Left  Shoulder  to  Plate' 

WRITE  {*,*)  '  Enter  3  if:  Left  Eye  View--Right  Shoulder  to  Plate' 

WRITE  (*,*)  '  Enter  4  if:  Right  Eye  View--Right  Shoulder  to  Plate' 

WRITE  (*,*) 

READ  (*,*)  IANS 
if(ians.eq.O}  go  to  999 


Input  data  for  the  Preprocessing  Program: 

3,  4,  5,  6,  8  in  col.  1  Three(etc)-parameter  transformation 

Calibrated  Fiducial  Coordinates  in  FORMAT  (2X, I4,4X,2F10.4) 


Radial  Lens  Distortion  Function: 

Coefficients  FKO,  FK1  FORMAT  (2D20.10) 

Coefficients  FK2,  FIG  FORMAT  (2D20.10) 

CALL  CLEAR 

FOCAL=  -889. ODD 
CALL  NEWPAG 

WRITE  (8,1400)  IFRAM(IANS) 

WRITE  (10,2400)IFRAM(IANS) 

write  (12,  '(i1,  9x,  3f10.3)')iopt1,  focal,  sdx,  sdy 
Write  Calibrated  Fiducial  Coordinates 


JFID=2 
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694  do  8  ifid=1,  10 

695  WRITE  (  8,1420)  IFID,CALFID(1,IFID,JFID),CALFID(2,IFID,JFID) 

696  WRITE  (10,2420)  IFID,CALFID(1,IFID,JFID),CALFID(2,IFID,JFID) 

697  8  WRITE  (12,1410)  IFID,CALFID(1,IFID,JFID),CALFID(2,IFID,JFID) 

698  write  (12,  '(////)') 

699  C 

700  C  Read  &  Write  Frame  ID 

701  C 

702  WRITE  (  9,1516)  IFRAM(IANS),  FOCAL,  SDX,  SDY 

703  WRITE  (12, '(A8)')  IFRAM(IANS) 

704  CALL  NEWPAG 

705  WRITE  (  8,1380)  IFRAM(IANS) 

706  WRITE  (10,2380)  IFRAM(IANS) 

707  NRED=1 

708  Q*************************************************************************** 

709  C  Start  major  loop  for  digitizing  x-rays: 

710  if lag=.true. 

711  DO  40  IRED=1,NRED 

712  IFID=1 

713  10  READ  (11)  DATA 

714  WRITE  (*,*)  CHAR(7) 

715  C 

716  C  DECODE  data  from  CHARACTER  to  INTEGER 

717  C 


16 


127 


Naval  Biodynamics  Laboratory  Software  Documentation 


718 

if 

(ichar  (  data(l:l)  )  <  32)  data(l:16)  =  ( 

719 

READ  (DATA,  20)  IBUTT,IX,IY 

720 

20  FORMAT  ( 1 1 , IX, 16, IX, 16) 

721 

c 

722 

C  Interpret  action  to  take  based  on  which  button 

723 

IF 

(IBUTT  .EQ.  3)  THEN 

724 

XY(1,IFID,IRED)=IX*units 

725 

XY(2,IFID,IRED)=IY*units 

726 

WRITE  (*,30)  'FIDUCIAL', IFID, XY(1, IFID,: 

727 

30 

FORMAT  ('  ',A,1X,I3,2X,F8.4,2X,F8.4) 

728 

if(if lag)then 

729 

isavex=ix 

730 

isavey=iy 

731 

if  lag=. false. 

732 

endif 

733 

IFID=IFID+1 

734 

ELSEIF  (IBUTT  .EQ.  2)  THEN 

735 

IFID=IFID-1 

736 

WRITE  (*,*)  'Backing  up  one  to  FIDUCIAL 

737 

WRITE  (*,*)  CHAR(7),CHAR(7) 

738 

ELSEIF  (IBUTT  .EQ.  1)  THEN 

739 

XY(1,IF1D,IRED)=-1. 

740 

XY(2,IFID,IRED)=-1. 

741 

WRITE  (*,*)  'MISSING  ',  IFID 

742 

IFID=IFID+1 
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ELSE 

WRITE  (*,*)  'Not  an  option.  Redo' 

END  IF 

IF  (IFID  .LE.  10)  GO  TO  10 
0  CONTINUE 

Write  out  the  raw  data  to  raw.dat 
DO  60  IFID=1,10 

IF  (XY(1,IFID,1).GT.0)  WRITE  (12,50)  IFID,(  XY(1 , 1  FID, IRED), 
XY(2,IFID,IRED),IRED=1,NRED) 

0  FORMAT  (6X,I4,S,6F10.3) 

0  CONTINUE 

WRITE  (12,*) 

IFID=0 

DO  200  K=1,10 

Read  measured  fiducial  coordinates 


IFID=IFID+1 

IF  (IFID. GT. 10)  GO  TO  210 
IF  (XY(1,IFID,1).LE.0)  then 
IFID=IFID+1 
GO  TO  80 
ENDIF 
KK=IFID 
XMAX=0.0D0 
YHAX=0.0D0 
XMIN=1000.0D0 
YMIN=1000.0D0 
SUMX=0.000 
SUMY=0.0D0 
DO  100  J=1,NRED 
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776 

X=XY(1,IFID,J) 

777 

Y=XY(2,IFID,J) 

778 

IF  (X.EQ.O.AND.Y.EQ.O)  GO  TO  110 

779 

SUMX=SUMX-*-X 

780 

SUMY=SUMY+Y 

781 

IF  (NRED.EQ.1)  GO  TO  100 

782 

IF  (XMAX.LT.X)  XHAX=X 

783 

IF  (XMIN.GT.X)  XMIN=X 

784 

IF  (YMAX.LT.Y)  YMAX=Y 

785 

IF  (YMIN.GT.Y)  YMIN=Y 

786 

100 

CONTINUE 

787 

IF  (NRED.NE.1)  GO  TO  120 

788 

110 

XMIN=0.0D0 

789 

YMIN=0.0D0 

790 

120 

J=NRED 

791 

IF  (J.EQ.O)  J=1 
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792 

XT=SUMX/J 

793 

YT=SUMY/J 

794 

C  Store  averaged  digitized  coordinates 

795 

OBSCOR(1,K)=XT 

796 

0BSC0R(2,X)=YT 

797 

CALCOR(1,X}=CALFID(1,KK,JFID) 

798 

CALCOR(2,K}=CALFID(2,KK,JFID) 

799 

IDFD(K)=KK 

800 

WRITE  (  8,1540)  KK,XT,YT,XMAX-XMIN,YMAX-YMIN 

801 

WRITE  (10,2540)  KK,XT,YT,XHAX-XMIN,YMAX-YMIN 

802 

200 

CONTINUE 

803 

C 

804 

C  Compute  the  3-Parameter  Check  Transformation. 

805 

C 

806 

210 

NFID=K-1 

807 

ICH3S=1 

808 

CALL  FOURP 

809 

WRITE  (*,*)'  3-Parameter  Check  Transformation' 

810 

rmsx=0 . 

811 

rmsy=0 . 

812 

DO  220  I=1,NFID 

813 

X=OBSCOR(1,I) 

814 

Y=OBSCOR(2,I) 

815 

XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1 

816 

YT=(X*DEL(6)+Y*DEL(7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1 

817 

KK=IDFD(I) 

818 

WRITE  (  *.2560)  XK.XT.YT 

819 

rmsx=rmsx+xt*xt 

820 

rmsy=rmsy+yt*yt 

821 

220 

CONTINUE 

822 

rmsx3=dsqrt ( rmsx/nf i d) 

823 

rmsy3=dsqrt ( rmsy/nf id) 

824 

write  (*,230)rmsx,  rmsy 

825 

230 

format  ('  rms=  ',2f7.3) 

826 

WRITE  (*,*) 

827 

WRITE  (*,*)iopt1 , '-Parameter  Transformation' 

828 

rmsx=0 . 

829 

rmsy=0 . 

830 

C 

831 

C  Compute  the  Multi -Parameter  Transformation. 

832 

ICH3=ICH3S 

833 

IF  (IOPT1.LE.5)  CALL  FOURP 

18 
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834 

IF  (IOPT1.EQ.5)  CALL  FIVEP 

835 

IF  (IOPT1.EQ.6)  CALL  SIXP 

1 

836 

IF  (lOPTI.EQ.S)  CALL  EIGHTP 

■ 

837 

WRITE  {  8,1550)  IOPT1 

838 

WRITE  (10,2550)  IOPT1 

839 

C 

■ 

840 

C  Compute  Residuals  For  the  Fiducial  Coordinates 

1 

841 

C 

■ 
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• 

842 

DO  240  I=1,NFID 

Jl 

843 

X=OBSCOR(1,I) 

844 

Y=OBSCOR(2,I) 

n 

845 

XT=(X*DEL(1 )+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1 .0)-CALCOR{1 , I ) 

1 

846 

YT=(X*DEL(6)+Y*DEL{7)+DEL(8))/(X*DEL(4)+Y*DEL(5)+1.0)-CALCOR(2,I) 

■ 

847 

KK=IDFD{I) 

848 

WRITE  (  8,1560)  KIC,XT,YT 

849 

WRITE  (10,2560)  KK,XT,YT 

850 

WRITE  (  *,2560)  KK,XT,YT 

851 

rmsx=rmsx+xt*xt 

852 

rmsy=rmsy+yt*yt 

853 

240  CONTINUE 

■ 

854 

rmsx=dsqrt  ( rtnsx/nf  i  d) 

1 

855 

rmsy=dsqrt ( rmsy/nf i d) 

856 

write  (*,230)rmsx,  rmsy 

857 

write(  8,  1 545 )rmsx,  rmsy,  rmsx3,  rmsy3,  del 

858 

writedO,  2545)rmsx,  rmsy,  rmsx3,  rmsy3,  del 

■ 

859 

1545  FORMAT(/43X,'RMS',2F15.3/43X,'RMS(CHECK)',F8.3,  F15.3/ 

1 

860 

/45X, 'TRANSFORMATION  PARAMETERS  ARE: '/33X,2F11 .6, F1 1 .4, 

861 

2F11.6/33X,2F11.6,F11.4//) 

862 

2545  FORMAT(/23X,'Rms',2F15.3/23X,'Rms(check)',F8.3,  F15.3/ 

1 

863 

.  /25X, 'Transformation  Parameters  Are:'/13X,2F11.6,F11.4, 

864 

2F11.6/13X,2F11.6,F11.4) 

865 

CALL  NEWPAG 

866 

IF  (NRED  .GT.  1)  WRITE  (8,1570)  IFRAM(IANS) 

A 

867 

IF  (NRED  .GT.  1)  WRITE  (10,2570)IFRAM(IANS) 

1 

868 

IF  (NRED  .EQ.  1)  WRITE  (8,1575)  IFRAM(IANS) 

1 

869 

IF  (NRED  .EQ.  1)  WRITE  (10,2575)IFRAM(IANS) 

870 

PAUSE 

871 

Q********************************************************************* 

m 

872 

C 

1 

873 

C  Compute  the  Averaged  Coordinates  of  the  HRV  body 

874 

C 

875 

500  DO  560  IRED=1,NRED 

876 

IBOD=1 

877 

550  READ  (11)  DATA 

■ 

878 

WRITE  (*,*)  CHAR(7) 

879 

C 

880 

C  DECODE  data  from  CHARACTER  to  INTEGER 

■ 

881 

C 

882 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 

883 

READ  (DATA,  20)  IBUTT,IX,IY 

884 

C 

■ 

885 

C  Interpret  action  to  take  based  on  which  button  was  pressed: 

1 

886 

IF  (IBUTT  .EQ.  3)  THEN 

W 

887 

XY(1,IBOD,IRED)=IX*unitS 

888 

XY ( 2 , 1  BOD , I RED ) = I Y*un i ts 

889 

WRITE  (*,555)IDBOD(IBOD),XY(1,IBOD,IRED),XY(2,IBOD,IRED) 

1 

890 

555  FORMAT  (A10,2X, F8.4,2X, F8.4) 

130 
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891 

IB00=IB0D+1 

892 

ELSEIF  (IBUTT  .EQ.  2)  THEN 

893 

IB0D=IB0D-1 

894 

WRITE  (*,*)  'Backing  up  one  to  ',  IDBOO(IBOO) 

895 

WRITE  (*,*)  CHAR (7), CHAR (7) 

896 

ELSEIF  (IBUTT  .EQ.  1)  THEN 

897 

XY(1,IBOD,IRED)=-1. 

898 

XY(2,IB00,IRED)=-1. 

899 

WRITE  (*,*)  'MISSING  ',  IDBOO(IBOO) 

900 

IBOD=IBCID-i-1 

901 

ELSE 

902 

WRITE  (*,*)  'Not  an  option.  Redo' 

903 

END  IF 

904 

IF  (IBOD  .LE.  NBOD)  GO  TO  550 

905 

560 

CONTINUE 

906 

C 

907 

DO  580  IBOO=1,NBOD 

908 

IF  (XY(1,IBOD,1).GT.0)  WRITE  (12,270)  IDBOD(IBOD), 

909 

(XY( 1 , IBOD, IRED) ,XY(2, IBOD, IRED) , IRED=1 ,NRED) 

910 

270 

FORMAT  (2X,A8,1X,S,6(F9.4,1X)) 

911 

580 

CONTINUE 

912 

WRITE  (12,*) 

913 

C 

914 

IB00=0 

915 

DO  690  K=1,NBOD 

916 

C 

917 

C  Process  measured  body  coordinates 

918 

C 

919 

IBOO=IBOO+1 

920 

590 

IF  (IBOD. GT. NBOD)  GO  TO  700 

921 

IF  (XY(1,IBOD,1).LE.0)  then 

922 

IBOD=IBOD+1 

923 

GO  TO  590 

924 

END  IF 

925 

KK=IBOD 

926 

XMAX=0.0D0 

927 

YMAX=0.0D0 

928 

XMIN=1000.0D0 

929 

YMIN=1000.0D0 

930 

SUMX=0.0D0 

931 

SUMY=0.0D0 

932 

DO  600  J:=1,NRED 

933 

X=XY(1,IB00,J) 

934 

Y=XY(2,IBOD,J) 

935 

IF  (X.EQ.O.AND.Y.EQ.O)  GO  TO  610 

936 

SUMX=SUMX+X 

937 

SUMY=SUMY+Y 

938 

IF  (NRED.EQ.I)  GO  TO  600 

939 

IF  (XMAX.LT.X)  XMAX=X 
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940  IF  (XMIN.GT.X)  XMIN=X 

941  IF  (YMAX.LT.Y)  YMAX=Y 

942  IF  (YMIN.GT.Y)  YMIN=Y 
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943 

600 

CONTINUE 

944 

IF  (NRED.NE.1)  GO  TO  620 

945 

610 

XMIN=0.0D0 

946 

YMIN=0.0D0 

947 

620 

J=NRED 

948 

IF  (J.EQ.O)  J=1 

949 

X=SUMX/J 

950 

Y=SUMY/J 

951 

XM=XMAX-XMIN 

952 

YM=YMAX-YMIN 

953 

IDPT=IDBOD(IBOD) 

954 

C 

955 

C 

Correct  Measured  Coordinates  for  Film  Shrinkage 

956 

C 

957 

XT=(X*DEL(1)+Y*DEL(2)+DEL(3))/(X*DEL(4)+Y*DEL(5)+1.0) 

958 

YT=(X*DEL(6)+Y*DEL(7)+DEL(8)>/(X*DEL(4)+Y*DEL(5)+1.0) 

959 

C 

960 

IF  (NRED  .GT.  1)  WRITE  (  8,1600)  IDPT,X, Y,XT,YT,XM,YM 

961 

IF  (NRED  .GT.  1)  WRITE  (10,2600)  IDPT,X,Y,XT,YT,XM,YM 

962 

IF  (NRED  .EQ.  1)  WRITE  (  8,1605)  IDPT,X, Y,XT,YT 

963 

IF  (NRED  .EQ.  1)  WRITE  (10,2605)  IDPT,X,Y,XT,YT 

964 

C 

965 

C 

Write  Records  for  Triangulation  Input  to  file:  “img.dat” 

966 

WRITE  (  9,1610)  IOPT,XT,YT,IFRAM(IANS) 

967 

690 

CONTINUE 

968 

C 

969 

700 

i count=0 

970 

710 

write  (*,*)'  Re-do  first  fiducial' 

971 

READ  (11)  DATA 

972 

WRITE  (*,*)  CHAR(7) 

973 

C 

974 

C 

DECODE  data  from  CHARACTER  to  INTEGER 

975 

C 

976 

if  (ichar  (  data(1;1)  )  <  32)  data(1:16)  =  data(2:17) 

977 

READ  (DATA,  20)  IBUTT,IX,IY 

978 

i f ( iabs( ix- i savex)+i abs( ly- isavey)  .gt .  3*(rmsx+rinsy)/uni ts)then 

979 

write  <*,*)'  You  blew  it',  ix,  iy,  '  vs.',  isavex,  isavey 

980 

WRITE  (*,*)  CHAR(7) 

981 

WRITE  (*,*)  CHAR(7) 

982 

icount=icount+1 

983 

if (icount. le.4)  go  to  710 

984 

writeC*,  *)'No  more  tries. . .origin  lost... going  back  to  menu' 

985 

WRITE  (9,'(A8)')  ********** 

986 

go  to  1 

987 

end  if 

988 

PAUSE 
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989  WRITE  (9,'(A8)')  »********/ 

990  go  to  1 

991  C 

992  999  CALL  CLEAR 

993  WRITE  (12, '(A8)')  ********** 

994  WRITE  (  8,*)CHAR(12) 

995  WRITE  (10,*)CHAR(12) 

996  C  FORMATTED  OUTPUT  FOR  132-COLUMN  PAPER: 

997  C 

998  1370  FORMAT  (21 1 ,8X,3F10.3) 

999  1380  FORMAT  (40X, ' FIDUCIAL  MEASUREMENTS  OF  FRAME  ',A8//  36X,'ID', 

1000  .  12X, 'AVERAGE', 13X, 'MAX  SPREAD'/48X,'X',9X,'Y',11X,'X',9X,'Y') 
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1001  1400  FORMAT  (36X, 'CALIBRATED  FIDUCIAL  COORDINATES  OF  FRAME  ',A8// 

1002  .  46X,  'FID',  9X,  'X',  12X,  'Y'  ) 

1003  1410  FORMAT  (2X, I4,4X,2F10.4) 

1004  1420  FORMAT  (45X, I4,5X, F8.3,5X,F8.3) 

1005  1440  FORMAT  (2D20.10) 

1006  1445  FORMAT  (3D20.10) 

1007  1450  FORMAT  (//42X,SP, 'CALIBRATED  FOCAL  LENGTH  =  ',F9.3,'  mm.') 

1008  1460  FORMAT  (////51X,SP, 'LENS  DISTORTION'//51X, 'RADIAL  PARAMETERS'/31X 

1009  .  'ICO='D15.802,'  K1='D15.802, '  K2='D15.8D2/51X'K3='D15.8D2 

1010  .  ,//:45X,'LENS  DECENTRATION  PARAMETERS'/31X, ' J1=  'D15.802, 

1011  .  '  J2=  'D15.8D2,'  PHI=  'D15.802/) 

1012  1470  FORMAT  (12) 

1013  1480  FORMAT  (2F10.3) 

1014  1485  FORMAT  (8X, 'Calibrated  Focal  Length  (CFL)  in  millimeters  =  ') 

1015  1500  FORMAT  (44X,2F13.3) 

1016  1510  FORMAT  (6X, I4,6F10.3) 

1017  1516  FORMAT  (A8,2X,SP,F10.3:,SS,2(F10.3),10X) 

1018  1540  FORMAT  {36X, I4,2X,2F10.3,2X,2F10.3) 

1019  1550  FORMAT  {//I38, ' -PARAMETER  RESIDUALS  OF  THE  FIDUCIAL  COORDINATES'// 

1020  .  43X,  'FID',  11X,  'X',  14X,  'Y'  ) 

1021  1560  FORMAT  (42X, I4,2F15.3) 

1022  1570  FORMAT  <//42X, 'PLATE  COORDINATES  FOR  FRAME  ' ,A8//22X, ' ID' , 1 IX, 

1023  .  'MEASURED', 13X, 'ADJUSTED', 13X, 'MAX  SPREAD' , 1 IX, ' FRAME'/ 

1024  .  34X,'X',9X,'Y',10X,'X',9X,'Y',10X,'X',9X,'Y') 

1025  1575  FORMAT  (//42X, 'PLATE  COORDINATES  FOR  FRAME  ' ,A8//38X, ' ID' , 1 IX, 

1026  .  'MEASURED', 13X,'ADJUSTED'/50X,'X',9X,'Y',10X,'X',9X,'Y') 

1027  1580  FORMAT  (2X,A8,6F10.3) 

1028  1600  FORMAT  (18X,A8,2X,2F10.3,1X,2F10.3,1X,2F10.3) 

1029  1605  FORMAT  (34X,A8,2X,2F10.3,1X,2F10.3) 

1030  1610  FORMAT  (A8,2X,2F10.4, 15X, 'Photo  ',A8) 

1031  C 

1032  C  FORMATTED  OUTPUT  FOR  80-COLUHN  PAPER: 

1033  C 

1034  2380  FORMAT  (20X, ' Fiducial  Measurements  of  Frame  ',A8//  16X,'ID',12X, 

1035  .  'Average' , 13X, 'Max  Spread'/28X, 'X' ,9X, 'Y' , 1 IX, 'X' ,9X, 'Y' ) 

1036  2400  FORMAT  ( 16X, 'Cal ibrated  Fiducial  Coordinates  of  Frame  ',A8// 

1037  .  26X,  'Fid',  9X,  'X',  12X,  'Y') 
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1038 

2420 

FORMAT 

1039 

2450 

FORMAT 

1040 

2460 

FORMAT 

1041 

1042 

1043 

1044 

2500 

FORMAT 

1045 

2540 

FORMAT 

1046 

2550 

FORMAT 

1047 

1048 

2560 

FORMAT 

1049 

2570 

FORMAT 

1050 

1051 

1052 

2575 

FORMAT 

1053 

1054 

2600 

FORMAT 

1055 

2605 

FORMAT 

1056 

C 

1057 

CALL  Bl 

1058 

CLOSE 

(25X,I4,5X,F8.3,5X,F8-3) 

(//25X,SP, 'Calibrated  Focal  Length  =  ',F9.3,'  mm-') 
(////31X,SP, 'Lens  Distortion'//31X, 'Radial  Parameters'/I IX 
'K0='D15-8D2,'  K1='D15-8D2,'  K2='D15-8D2/31X'K3='D15-8D2 

,//:25X, 'Lens  Decentration  Parameters'/11X, ' J1=  'D15-8D2, 

'  J2=  'D15.8D2,'  PHI=  'D15-802/) 

(24X,2F13.3) 

(16X,14,2X,2F10.3,2X,2F10.3) 

(//1 18, ' -Parameter  Residuals  of  the  Fiducial  Coordinates'// 
23X,  'Fid',  11X,  'X',  14X,  'Y') 

<22X,I4,2F15.3) 

<//22X, 'Plate  Coordinates  for  Frame  ',A8//'  ID',11X, 

'Measured' ,13X, 'Adjusted' ,13X, 'Max  Spread' , 11X, 'Frame'/ 
17X,'X',9X,'Y',10X,'X',9X,'Y',10X,'X',9X,'Y') 

(//22X, 'Plate  Coordinates  for  Frame  ',A8//18X,'ID',11X, 
'Measured' , 13X, 'Adjusted'/30X, 'X' ,9X, ' Y' , 10X, 'X' ,9X, ' Y' ) 
(X,A8,2X,2F10.3,1X,2F10.3,1X,2F10.3) 
(14X,A8,2X,2F10.3,1X,2F10.3) 
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CLOSE  (9) 
CLOSE  <10) 
END 
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SUBROUTINE  FOURP 
C 

C  Calculate  the  3  or  4  Parameter  Transformation  Between  an  Exact  Set 
C  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INTRINSIC  DSQRT 
DIMENSION  AM(2,4),  CM(2) 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3,  NFID 
C 

DO  1010  1=1,4 

DO  1010  J=1,5 
EQN(I,J)=0.0D0 
1010  CONTINUE 

AM(1,3)=1.0D0 
AM(1,4)=0.0D0 
AM(2,3)=0.0D0 
AM(2,4)=1.0D0 
DO  1030  1=1, NFID 

AM(1,1)=OBSCOR(1,I) 

AM(1,2)=OBSCOR(2,I) 

AM(2,1)=AM(1,2) 

AM(2,2)=-AM(1,1) 

CM(1)=CALCOR(1,I) 

CM(2)=CALCOR(2,I) 

DO  1020  J=1,4 

DO  1020  IC=1,2 

EQN(J,5)=EQN(J,5)+AM(K,J)*CM(K) 

DO  1020  L=1,4 

EQN(J,L)=EQN(J,L)+AM(K,J)*AM{K,L) 

1020  CONTINUE 
1030  CONTINUE 

CALL  LINSOL(4) 

IF  (ICH3.EQ.0)  GO  TO  1060 

If  ICH3<>0  Transform  the  4-param  to  a  3-param 

SCALE=EQN(1,5)**2+EQN(2,5)**2 

SCALE=DSQRT{SCALE) 

EQN(1,5)=EQN(1,5)/SCALE 
EQN(2,5)=EQN(2,5)/SCALE 
SUM1=0.0D0 
SUM2=0.0D0 
DO  1050  1=1, NFID 
X=OBSCOR{1,I) 

Y=OBSCOR(2,I) 

SUM1 =SUM 1 +CALCOR ( 1 , 1) - EQN ( 1 , 5  >*X- EON ( 2 , 5 )*Y 
SUM2=SUM2+CALCOR ( 2 , 1 )+EQN ( 2 , 5  >*X- EQN ( 1 , 5 )*Y 
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1111  1050  CONTINUE 

1112  EQN(3,5)=SUM1/NFID 

1113  EQN(4,5)=SUM2/NFID 

1114  C 

1115  C  Form  transformation  parameters  vector 

1116  C 

1117  1060  DEL(1)=EQN(1,5) 

1118  DEL(2)=EQN(2,5) 

1119  DEL(3)=EQN(3,5) 

1120  DEL(4)=0.0D0 

1121  DEL(5)=0.0D0 

1122  DEL(6)=-DEL(2) 

1123  DEL(7)=DEL(1) 

1124  DEL(8)=EQN(4,5) 

1125  END 
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1126 

1127  SUBROUTINE  FIVEP 

1128  C 

1129  C  Calculate  the  FIVE  Parameter  Transformation  Between  an  Exact  Set 

1130  C  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

1131  C 

1132  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

1133  INTRINSIC  DSIN,  DCOS,  DABS 

1134  DIMENSION  B(2,5),C(2),CV(5),PAR(5) 

1135  COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3,  NFID 

1136  C 

1 137  PAR( 1 )=DSQRT(DEL{1 )**2+DEL(2)**2) 

1138  PAR(2)=PAR(1) 

1139  PAR(3)=DATAN2(DEL(2),DEL(1)) 

1140  PAR(4)=DEL(3) 

1141  PAR(5)=DEL(8) 

1142  B(1,2)=0.0D0 

1143  B(1,5)=0.0D0 

1144  B(2,1)=0.0D0 

1145  B(2,4)=0.0D0 

1146  DO  30  11=1,10 

1147  DO  2  1=1,  5 

1148  CV(I)=0.0D0 

1149  DO  2  J=1,  5 

1150  2  EQN(I,  J)=0.0D0 

1151  DO  10  1=1, NFID 

1152  B(1,4)=PAR(1) 

1153  B(2,5)=PAR(2) 

1154  SINT=DSIN(PAR(3)) 

1155  COST=DCOS(PAR(3)) 

1156  X=OBSCOR(1,I) 

1157  Y=OBSCOR(2,I) 

1158  C1=-X*SINT+Y*COST 

1159  C2=  X*COST+Y*SINT 

1160  B(1,1)=C2*PAR(1) 

1161  B(1,3)=C1*PAR(1)**2 

1162  B(2,2)=C1*PAR(2) 

1163  B(2,3)=-C2*PAR(2)**2 
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1164  C(1)=PAR(1)*(CALCOR(1,l)-PAR(1)*C2-PAR(4)) 

1165  C(2)=PAR(2)*(CALC0R(2,I)-PAR(2)*C1-PAR(5)) 

1166  DO  10  J=1,5 

1167  DO  10  K=1.2 

1168  CV(J)=CV(J)+B(K,J)*C(K) 

1169  DO  10  L=1,5 

1170  EQN(J,L)=EQN(J,L)+B(IC,J)*B(K,L) 

1171  10  CONTINUE 

1172  C 

1173  C  Solve  normal  equations 

1174  C 

1175  CALL  LINS0L(5) 
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1176 

DO  15  J=1,  5 

1177 

15 

PAR(J)=PAR(J)+EQN(J,  6) 

1178 

C 

1179 

C 

Test  for  convergence 

1180 

C 

1181 

DO  20  J=1,  5 

1182 

C1=DABS(EQN(J,  6)) 

1183 

EPSLN=1.0D-6 

1184 

lF(J.GT.3)EPSLN=1.0D-4 

1185 

IF(C1.GT.EPSLN)G0  TO  30 

1186 

20 

CONTINUE 

1187 

GO  TO  40 

1188 

30 

CONTINUE 

1189 

CALL  CLEAR 

1190 

CALL  BEEP 

1191 

WRITEC*,*)'  Error  in  FIVEP' 

1192 

STOP 

1193 

C 

1194 

C 

Form  transformation  parameters  vector 

1195 

C 

1196 

40 

SINT=DSIN(PAR(3)) 

1197 

COST=DCOS(PAR(3)) 

1198 

DEL(1)=PAR(1)*COST 

1199 

DEL(2)=PAR(1>*SINT 

1200 

DEL(3)=PAR(4) 

1201 

DEL(4)=0.0D0 

1202 

DEL(5)=0.0D0 

1203 

DEL(6)=-PAR(2>*SINT 

1204 

DEL(7)=PAR{2)*COST 

1205 

DEL(8)=PAR(5) 

1206 

END 
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1207 

1208  SUBROUTINE  SIXP 

1209  C 

1210  C  Calculate  the  SIX  Parameter  Transformation  Between  an  Exact  Set 

1211  C  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

1212  C 

1213  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 


DIMENSION  ANS(2,3),  CCC(3,3),  DDD(3,2),  RRR(2,2),  ERR<2) 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3,  NFID 
C 

C  Zero  Normal  Equation  Area. 

C 

DO  1010  1=1,2 

DO  1010  J=1,3 
COCCI, J)=0.0D0 
DDD(J,I)=0.0D0 
1010  CONTINUE 
C 

C  Compute  Normal  Equations 
C 

DO  1020  1=1, NFID 
DO  1020  J=1,2 

CCC{J,3)=CCC(J,3)+CALCOR(J,I) 

DDD (3 , J )=DDD (3 , J )+OBSCOR( J , I ) 

DO  1020  K=1,2 

CCCC J,K)=CCC( J,K)+CALCOR{ J, I )*CALCOR{K, I ) 

DDD ( J , IO=DDD(  J , K)+CALCOR(  J ,  I  )*OBSCOR(K,  I ) 

1020  CONTINUE 

CCC(3,1)=CCC(1,3) 

CCC(3,2)=CCC(2,3) 

CCC(3,3)=NFID 

C 

C  Compute  Inverse  of  Normal  Matrix. 

C 

IGGY=3 

CALL  INVERT  (CCC, IGGY,DET) 

C 

C  Compute  the  Transformation  Parameters 
C 

DO  1030  1=1,2 

DO  1030  J=1,3 
ANS(I,J)=0.0D0 
DO  1030  K=1,3 

1030  ANSI  I , J)=ANS( I , J)+CCC( J,K)*DDD(K, I ) 

C 

C  Calculate  the  Transformation  from  Measured  Data  to  Exact  Data. 

C 

DO  1040  1=1,2 

DO  1040  J=1,2 
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1256  1040  RRR(I,J)=ANS(I,J) 

1257  IGGY=2 

1258  CALL  INVERT  (RRR, IGGY,DET) 

1259  DO  1050  1=1,2 

1260  DO  1050  J=1,2 

1261  1050  ANS(I,J)=RRR(I,J) 

1262  DO  1060  1=1,2 

1263  1060  ERR(I)=-ANS(I,1)*ANS(1,3)-ANS(I,2)*ANS(2,3) 

1264  DO  1070  1=1,2 

1265  1070  ANS(I,3)=ERR(I) 

1266  C 

1267  C  Form  transformation  parameters  vector 

1268  C 

1269  DEL(1)=ANS(1,1) 

1270  DEL(2)=ANS(1,2) 

1271  DEL(3)=ANS(1,3) 
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1272 

DEL(4)=0.0D0 

1273 

DEL(5)=0.0D0 

1274 

DEL(6)=ANS(2,1) 

1275 

DEL(7)=ANS(2,2) 

1276 

DEL(8)=ANS(2,3) 

1277 

END 
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1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 


SUBROUTINE  EIGHTP 
C 

C  Calculate  the  EIGHT  Parameter  Transformation  Between  an  Exact  Set 
C  of  Data  and  a  Corresponding  Set  of  Measured  Data, 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

I NTR I NS I C  DABS 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL<8),ICH3,  NFID 

real*8  tem(8) 

C 

C  Zero  the  matrix  of  linear  equations  EQN 
C 

DO  1  1=1,8 

del(i )=0-0d0 
DO  1  J=1,9 
1  EQN(I,J)=0.0D0 

C 

C  Compute  approximate  values  for  the  transformation  parameters 
C 

DO  10  1=1, NFID 

10  CALL  ACCAPR  (CALCOR(l , I ),CALCOR(2, I ),OBSCOR<1 , I ),OBSCOR(2, I )) 
N=8 

call  invertCeqn,  n,  d) 
do  15  i=1,  8 
do  15  j=l,  8 

15  del(i)=deL(i)+eqn(i,  j)*eqn(j,  9) 

C 

C  Compute  the  transformation  parameters  by  least  squares 
C 

DO  50  M=1,5 
C 

C  Zero  the  normal  equations 
C 

DO  18  1=1,8 
tem( i )=0-0d0 
DO  18  J=1,9 
18  EQN(I,J)=0-0D0 

C 

C  Form  the  normal  equations 
C 

DO  20  1=1, NFID 

20  CALL  ACCNEQ  (CALCOR< 1 , I ),CALCOR(2, I ),OBSCOR(1 , I ),OBSCOR<2, I )) 

C 

C  Solve  the  normal  equations 
C 

call  invert(eqn,  n,  d) 
do  25  i=1,  8 
do  25  j=1,  8 
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1327 

25 

temCi)=tem(i)+eqn(i,  j)*eqn(j,  9) 

1328 

C 

1329 

C  1 

Correct  the  approximate  values  of  the  transformation  parameters 

1330 

c 

1331 

do  30  1=1,  8 

1332 

30 

del(i)=del(i)+tem(i) 

1333 

C 

1334 

c  ■ 

Test  the  solution  for  convergence 

1335 

C 

1336 

DO  40  1=1,8 

1337 

D=DABS(DEL(I)/(DEL(I)-tem(I))-1.0) 

1338 

IF  (D.GT..001D0)  GO  TO  50 

1339 

40 

CONTINUE 

1340 

RETURN 

1341 

50 

CONTINUE 

1342 

END 
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1343 

1344 

SUBROUTINE  LINSOL(NPAR) 

1345 

C 

1346 

C  Solution  of  (NPAR)  linear  equations  in  (NPAR)  unknowns- 

1347 

C 

1348 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

1349 

COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8),ICH3, 

1350 

C 

1351 

DO  1040  K=1,NPAR 

1352 

M=NPAR+1 

1353 

DO  1010  J=K,NPAR+1 

1354 

EQN(IC,M}=EQN(K,M)/EQN(K,K) 

1355 

1010 

M=M-1 

1356 

DO  1030  1=1, NPAR 

1357 

IF  (I.EQ.K)  GO  TO  1030 

1358 

M=NPAR+1 

1359 

DO  1020  L=K,NPAR+1 

1360 

EQN(I,M)=EQN(I,M)-EQN(I,K)*EQN(K,M) 

1361 

1020 

M=M-1 

1362 

1030 

CONTINUE 

1363 

1040 

CONTINUE 

1364 

C 

1365 

END 
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1366 

1367  SUBROUTINE  ACCAPR  (XG,YG,XP,YP) 

1368  C 

1369  C  Evaluate  the  contribution  of  one  point  to  the  8  by  9  matrix  of 

1370  C  normal  equations  for  computation  of  approximate  values  of  the 

1371  C  eight-parameter  film  shrinkage  transformation. 
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1372 

C 

1373 

C 

XG:  Calibrated  X  Fiducial  coordinate 

1374 

C 

YG:  Calibrated  Y  Fiducial  coordinate 

1375 

C 

XP:  Observed  X  Fiducial  coordinate 

1376 

C 

YP:  Observed  Y  Fiducial  coordinate 

1377 

C 

EQN:  8X8  Coefficient  matrix  of  the  Normal  Equation 

1378 

C 

with  the  vector  of  constants  in  column  9. 

1379 

C 

1380 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z} 

1381 

DIMENSION  AM(2,8),  BM(2) 

1382 

COMMON  CALCOR(2,50),OBSCOR{2,50),EQN(8,9),DEL(8),ICH3, 

1383 

c 

1384 

AM(1,1)=XP 

1385 

AM(1,2)=YP 

1386 

AM(1,3)=1.0D0 

1387 

AM(1,4)=-XG*XP 

1388 

AM(1,5)=-XG*YP 

1389 

AM(1,6)=0.0D0 

1390 

AM(1,7)=0.0D0 

1391 

AM(1,8)=0.0D0 

1392 

AM(2,1)=0.0D0 

1393 

AM(2,2)=0.0D0 

1394 

AM{2,3)=0.000 

1395 

AM(2,4)=-XP*YG 

1396 

AM(2,5)=-YP*YG 

1397 

AM(2,6)=XP 

1398 

AM(2,7>=YP 

1399 

AM(2,8)=1.0D0 

1400 

BM(1)=XG 

1401 

BM(2)=YG 

1402 

DO  1010  1=1,8 

1403 

DO  1010  J=1,8 

1404 

DO  1010  K=1,2 

1405 

1010 

EQN(I,J)=EQN{I,J)+AM(K,I)*AM(X,J) 

1406 

DO  1020  1=1,8 

1407 

DO  1020  J=1,2 

1408 

1020 

EQN(I,9)=EQN(I,9)+AM(J,I)*BM(J) 

1409 

C 

1410 

END 
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1411 

1412  SUBROUTINE  ACCNEQ  (XG, YG,XP, YP) 

1413  C 

1414  C  Evaluate  the  contribution  of  one  point  to  the  normal  equation 

1415  C  required  for  Subroutine  EIGHT-  The  normal  equations  are 

1416  C  required  to  compute  corrections  to  the  last  estimate  of  the 

1417  C  eight  transformation  parameters-  This  is  called  once  for  each 

1418  C  point- 

1419  C 

1420  C  XG: 

1421  C  YG: 

1422  C  XP: 

1423  C  YP: 

1424  C  EQN: 

1425  C 

1426  C 

1427  C 

1428  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

1429  DIMENSION  AM(2,2),  BM(2,8),  CM(2),  AMM(2,2) 


Calibrated  X  Fiducial  coordinate 
Calibrated  Y  Fiducial  coordinate 
Observed  X  Fiducial  coordinate 
Observed  Y  Fiducial  coordinate 
8X8  Coefficient  matrix  of  the  Normal  Equation 
with  the  vector  of  constants  in  column  9- 
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1430  COMMON  CALCOR(2,50),OBSCOR(2,50),EQN(8,9),DEL(8), ICH3,  NFID 

1431  C 

1432  AM(1,1)=DEL(1)-XG*DEL(4) 

1433  AM(1,2)=DEL(2)-XG*DEL(5) 

1434  AM(2,1)=DEL(6)-YG*DEL(4) 

1435  AM(2,2)=DEL(7)-YG*DEL(5) 

1436  BM(1,1)=XP 

1437  BM(1,2)=YP 

1438  BH(1,3)=1.0D0 

1439  BM(1,4)=-XP*XG 

1440  BM(1,5)=-YP*XG 

1441  BM(1,6)=0.0D0 

1442  BM(1,7)=0.0D0 

1443  BM(1,8)=0.0D0 

1444  BM<2,1)=0.0D0 

1445  BM(2,2)=0.0D0 

1446  BM(2,3)=0.0D0 

1447  BM(2,4)=-XP*YG 

1448  BM(2,5)=-YP*YG 

1449  BM(2,6)=XP 

1450  BM(2,7)=YP 

1451  BM(2,8)=1.0D0 

1452  CM(1)=XP*AM(1,1)+YP*AM(1,2)+DEL(3)-XG 

1453  CM(2)=XP*AM(2,1)+YP*AM(2,2)+DEL{8)-YG 

1454  C 

1455  C  Form  modified  covariance  matrix  AMM 

1456  C 

1457  DO  10  1=1,2 

1458  DO  10  J=1,2 

1459  AMM(I,J)=0.0D0 
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1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 


DO  10  K=1,2 

AMM(I,J)=AMM(I,J)+AM(I,K>*AM(J,IC) 

10  CONTINUE 

D=AMM(1,1)*AMM(2,2)-AMM(1,2)*AMM(2,1) 

AM(1,1)=  AMM(2,2)/D 
AM(2,2)=  AMM(1,1)/D 
AM(1,2)=-AMM(2,1)/D 
AM(2,1)=  AMM(1,2) 

C 

C  Form  normal  equations 
C 

DO  20  1=1,8 

DO  20  J=1,8 
DO  20  IC=1,2 
DO  20  L=1,2 

EQN(I,J)=EQN(I,J)+BM<K,I)*AM(K,L)*BM(L,J) 
20  CONTINUE 

DO  30  1=1,8 

DO  30  K=1,2 
DO  30  L=1,2 

EQN(I,9)=EQN(I,9)-BM<K,I)*AM<K,L)*CM(L) 

30  CONTINUE 
END 
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1483 

1484 

1485  SUBROUTINE  INVERT  (A,N,D) 

1486  C 

1487  C  Find  the  Inverse  of  a  Matrix  by  the  Gaussian  Elimination  Method. 

1488  C  A:  Array  in  which  the  matrix  to  be  inverted  is  located. 

1489  C  The  routine  will  search  for  the  largest  non- singular  matrix  in 

1490  C  the  array  A  and  invert  it  &  return  it  in  the  same  locations  of  A. 

1491  C  N:  The  first  dimension  of  A.  It  must  be  a  variable  in  the  call  list. 

1492  C  The  rank  of  largest  matrix  contained  in  A  will  be  returned  in  N. 

1493  C  0:  The  determinant  of  the  largest  non- singular  matrix  in  A. 

1494  C  L  &  M:  Vectors  of  dimension  N  used  temporarily. 

1495  C 

1496  C 

1497  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

1498  INTRINSIC  DABS 

1499  DIMENSION  A(64),  L(8),  M(8) 

1500  C 

1501  C  Initiate  the  continued  product  of  pivots  becoming  the  determinant. 

1502  C 

1503  D=1.0D0 

1504  C 

1505  C  Initiate  the  counter  which  contains  the  rank  of  the  matrix. 

1506  C 

1507  KSAVE=0 

1508  C 

1509  C  Start  the  main  elimination  loop- 

1510  C 

1511  DO  1090  K=1,N 

1512  C 

1513  C  Search  for  the  largest  element 

1514  C 

1515  L(IC)=K 

1516  M(K)=K 

1517  KIC=K+N*(K-1) 

1518  BIGA=A(KK) 

1519  DO  1010  I=K,N 

1520  DO  1010  J=IC,N 

1521  IJ=I+N*(J-1) 

1522  IF  (DABS(BIGA).GE.DABS(A(IJ)))  GO  TO  1010 

1523  BIGA=A(IJ) 

1524  L(IC)=I 

1525  M(K)=J 

1526  1010  CONTINUE 

1527  C 

1528  C  Largest  element  of  zero  means  the  largest  matrix  in  A  is  less  than  N. 

1529  C 

1530  IF  (BIGA.EQ.O)  GO  TO  1100 

1531  C 

1532  C  Interchange  rows 
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1533  C 

1534 

1535 

1536 


J=L(K) 

KSAVE=K 

IF  <L(K).LE.K)  GO  TO  1030 
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1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 


DO  1020  1=1, N 

ICI=IC+N*(I-1) 

JI=J+N*(I-1) 
tefn=-a(ki ) 
a(ki)=a( ji) 
a( ji )=tem 
1020  CONTINUE 

C 

C  Interchange  columns. 

C 

1030  I=M(K) 

IF  (M(K).LE.K)  GO  TO  1050 
DO  1040  J=1,N 

JK=J+N*(IC-1) 

JI=J+N*(I-1) 
teni=-a(  jk) 
a(jk)=a(ji) 
a( ji)=tem 
1040  CONTINUE 

C 

C  Divide  column  by  minus  pivot 
C 

1050  DO  1060  1=1, N 

IF  (I.EQ.K)  GO  TO  1060 
IK=I+N*(K-1) 

A(IlC)=A<IIC)/(-A(KK)) 

1060  CONTINUE 

C 

C  Reduce  matrix 
C 

DO  1070  1=1, N 

DO  1070  J=1,N 

IF  (I.EQ.K. OR. J.EQ.K)  GO  TO  1070 
IJ=I+N*(J-1) 

IK=I+N*(K-1) 

KJ=K+N*(J-1) 

A(IJ)=A(IK)*A(KJ)+A(IJ) 

1070  CONTINUE 
C 

C  Divide  row  by  pivot 
C 

DO  1080  J=1,N 

IF  (J.EQ.K)  GO  TO  1080 
KJ=K+N*(J-1) 

A(KJ)=A(KJ)/A(KK) 
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1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 


1080  CONTINUE 
C 

C  Continued  product  of  pivots 
C 

D=D*A(KK) 

A(KK)=1.0D0/A(KK) 

1090  CONTINUE 
C 

C  Final  row  and  column  interchange 
C 

1100  K=KSAVE+1 
1110  K=K-1 
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1594  IF  (K.LE.O)  GO  TO  1150 

1595  C 

1596  C  Restore  columns. 

1597  C 

1598  I=L(K) 

1599  IF  (I.LE.K)  GO  TO  1130 

1600  DO  1120  J=1,N 

1601  JtC=J+N*(K-1) 

1602  JI=J+N*(I-1) 

1603  tenFACjk) 

1604  A(JK)=-A(JI) 

1605  A(ji)=tem 

1606  1120  continue 

1607  C 

1608  C  Restore  rows. 

1609  C 

1610  1130  J=M(K) 

1611  IF  (J.LE.K)  GO  TO  1110 

1612  DO  1140  1=1, N 

1613  KI=K+N*(I-1) 

1614  JI=J+N*(I-1) 

1615  teiii=A(ki) 

1616  A(KI)=-A(JI) 

1617  A(ji)=tem 

1618  1140  continue 

1619  GO  TO  1110 

1620  C 

1621  C  Set  the  rank  of  the  matrix  and  return  to  the  calling  routine. 

1622  C 

1623  1150  RETURN 

1624  END 
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1625 

1626  SUBROUTINE  NEUPAG 

1627  C 

1628  C  Generate  page  titles  for  GIANT  system,  insert  Form  Feed  whether  the 

1629  C  FORTRAN  compiler  supports  it  or  not.  (Hewlett-Packard  9000  doesn't) 

1630  C 

1631  INTRINSIC  CHAR 

1632  CHARACTER  FF*1,  JTITLE*42 

1633  COMMON  /TITLEP/  JTITLE,  I  Page 

1634  C 

1635  FF=CHAR(12) 

1636  I  Page=I  Page+1 

1637  IF  (I  Page  .GT.  0)  THEN 

1638  WRITE  (  8,1010)  FF, JTITLE, I  Page 

1639  WRITE  (10,1020)  FF,I  Page, JTITLE 

1640  END  IF 

1641  1010  FORHAT(A,'  NBDL  H-P  UNIX  GIANT  X-PREP  : ' ,3X,A80,3X, '  Page', 15//) 

1642  1020  FORMAT(A,'  NBDL  H-P  UNIX  GIANT  X-PREP  :',38X,'  Page' , I3/1X,A42/) 

1643  END 
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1644 

1645  SUBROUTINE  BEEP 

1646  C 

1647  C  This  routine  causes  a  "beep"  sound  when  called.  (ANSI  terminals) 

1648  C 

1649  CHARACTER*1  BEEEP 

1650  INTRINSIC  CHAR 

1651  BEEEP=CHAR(7) 

1652  WRITE  (*,'(1X,A1)')  BEEEP 

1653  END 
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1654 

1655 

SUBROUTINE  CLEAR 

1656 

CALL  CLR 

1657 

CALL  TOPLFT 

1658 

CALL  CURDWN  (8) 

1659 

END 
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1660 

1661  SUBROUTINE  CLR 

1662  C 

1663  C  This  routine  erases  the  screen  and  the  cursor  goes  to  the  home  positi 

1664  C  (ANSI)  STRING  =  ESC  [  2  J 

1665  C 

1666  CHARACTER*1  ESC,BKT,TWO, J,STRING*4 

1667  INTRINSIC  CHAR 

1668  ESC=CHAR(27) 

1669  BKT=CHAR(91) 

1670  TWO=CHAR(50) 

1671  J=CHAR(74) 

1672  STRING=ESC//BKT//TWO//J 

1673  WRITE  (*,'(1X,A4)')  STRING 

1674  END 
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1675 

1676  SUBROUTINE  CURDWN  (IROW) 

1677  C 

1678  C  This  routine  moves  the  cursor  down  IROW  lines  without  changing  column 

1679  C  (ignored  if  the  cursor  is  already  at  the  bottom  of  the  screen) 

1680  C  (ANSI) 
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1681  C 

1682 

CHARACTER*1  ESC,BKT,B 

1683 

CHARACTER*2  ESCBKT 

1684 

INTRINSIC  CHAR 

1685 

ESC=CHAR(27) 

1686 

BKT=CHAR(91) 

1687 

ESCBKT=ESC//BKT 

1688 

B=CHAR(66) 

1689 

IF  (IROW.LT.10)  WRITE 

1690 

IF  (IROW.GE.10)  WRITE 

1691 

END 

(*/(1X,A2,I1,Al,/)')  ESCBKT,IROW,B 
(*,'(1X,A2,I2,A1,/)')  ESCBKT,IROW,B 
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1692 

1693  SUBROUTINE  TOPLFT 

1694  C 

1695  C  Move  the  cursor  to  the  top  left  of  the  scrolling  region. (ANSI) 

1696  C 

1697  CHARACTER*1  ESCAPE, L_BRACKET, SEN I  COLON, H 

1698  CHARACTER*2  ESCBKT 

1699  INTRINSIC  CHAR 

1700  ESCAPE=CHAR(27) 

1701  L_BRACKET=CHAR(91) 

1702  ESCBKT=ESCAPE//L_BRACKET 

1703  SEHICOLON=CHAR(59) 

1704  H=CHAR(72) 

1705  N=1 

1706  WRITE  (*,'(1X,A2,I1,A1,I1,A1,/)')  ESCBKT, N, SEMI  COLON, N,H 

1707  END 
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1 

2  cccc 

3  c  c 

4  c  c 

5  c  c 

6  c  c 

7  cccc 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22  c 

23 

24 

25 

26 

27 

28 

29 

30  1 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


PROGRAM  Digitize_Giant_Image_Data_Fi le 

Altek  digitizer  4-button  key  control  meanings: 

#2:RED  =  error-backup 

#4:BLUE=abort  photo  #1 :YELLOW=missing 

#3:GREEN=f iducial  or  data  point 

common  /titlep/  title,  page,  out,  img,  dig 

character*74  title,  irun*6,  fn*12,  day*8 

integer  page,  out,  img,  dig 

call  SYSTEM  ('els') 

page=0 

out=1 

img=2 

dig=3 

write  (*,*)  'Enter  COMM  Port  number:  ' 

read  (*,*)  iemm 

icmm=icmnH'48 

call  SYSTEM  ('mode  com'/ZcharCicmm)//' :9600,o,7,2') 
open  (dig, file  =  'com'//char(icmm),  access=' transparent') 
call  DATE  (day) 

write(*,*) 

write(*,*)'Enter  0  for  initial  conditions' 
write(*,*) 'Enter  1  for  head  anthropometry' 
write(*,*)'Enter  2  for  body  anthropometry' 
write(*,*) 
read  (*,*)ians 
if (ians==0)then 
write  (*,*) 

write  (*,*)'Enter  RUN  number  (A6):  ' 

read  (*,*)  irun 
write(*,*) 
do  i=1,6 

if(irun(i :i)=='  ')go  to  1 
enddo 

open  (out, file  =irun//'pr.out' ,  status='new' ) 
open  (img, file  =irun//'im.dat',  status='new' ) 

write  (title,"('  Initial  Conditions  for  Run  #  ',a6,24x,'  Date:' 
,a8)“)  irun,  day 

call  HEADS (ians) 
else 

write  (*,*)  'Enter  HRV  number:  ' 
read  (*,*)  ihrv 
write  (*,*) 
if(ians==1)then 

write  (*,*)  'Default  ear  offsets  are:  5.420*',  5.420".  ok?' 
write  (*,*)  'Hit  RETURN  to  accept-  Any  other  key  to  change' 
write  (*,*) 
i=ixkey() 
if  (i/=13)  then 
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52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


write  (*,*)  'Enter  left  &  right  ear  offsets:  ' 
read  (*,*)  ol,  or 
write  (*,*) 
else 

ol=5.420 

or=5.420 

endif 

write  (fn,  '(i4.4, "head.out" )')ihrv 
open  (out, file  =fn,  status='new' ) 
write  (fn,  ' (i4.4, "himg.dat" )' )ihrv 
open  (img,file  =fn,  status='new' ) 
write  (img,  *)ol,  or 

write  (title,*'('  Head  Anthropometry  for  HRV  #  ',i5-5, 
23x,'  Date:  ',  a8)")  ihrv,  day 
call  HEADS(ians) 
elseif(ians==2)then 

write  (fn,  ' (i4-4, "body. out" )' )ihrv 
open  (out, file  =fn,  status='new' ) 
write  (fn,  '( i4.4, "bimg.dat" )' )ihrv 
open  (img, file  =fn,  status='new' ) 

write  (title,"('  Body  Anthropometry  for  HRV  #  ',i5.5, 

23x,'  Date:  ',  a8)*')  ihrv,  day 

call  BODY 
endif 
endif 

write  (*,*) 
end 
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79 

80  SUBROUT I NE  HEADS( i ans ) 

81  c  ians=0  Digitize  Initial  Conditions  For  Accelerator  Run 

82  c  ians=1  Digitization  Of  Head  Anthropometry 

83  c 

84  c  Revised  January  25,  1992  by  D.  Francis 

85  c 

86  implicit  real*8  (a-h,0'Z) 

87  common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 

88  common  /titlep/  title,  page,  out,  img,  dig 

89  character*74  title 

90  integer  page,  out,  img,  dig,  icm(6) 

91  character  data*17 

92  character*8  ifram(14),  ilab(12),  icont(35),  itarg(40) 

93  integer  ibutt,  ifid,  ix,  iy 

94  real*8  xy(2,33),  calf id(2,4,8),  foc(8),  fk(4,8),  xo(2,8) 


95 

data  ilab  /' 

top  1',' 

top  2',' 

top  3',' 

rt  1', 

96 

/ 

rt  2',' 

rt  3',' 

bot  1',' 

bot  2', 

97 

/ 

bot  3',' 

Ift  1',' 

Ift  2',' 

Ift  3'/ 

98 

data  icont  /' 

a',' 

b',' 

c',' 

d'. 

99 

/ 

e',' 

f',' 

9'/ 

h'. 

100 

/ 

i'/ 

j',' 

101 

/ 

rtcl ' , ' 

rtc2' , ' 

rtc3' , ' 

rtc4' , 

102 

f 

rtc5' , ' 

rtc6',' 

rtc7' , ' 

rtc8' , 

103 

1 

ceni ' , ' 

cen2' , ' 

cen3' , ' 

cen4' , 

104 

/ 

cen5 ' , ' 

cen6' , ' 

cen7' , ' 

cen8' , 
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132  .  -18.1083,-12.1289,  18.0867,-12.1120,  18.1023,  12.1168, 

133  .  -18.0823,  12.1091,-18.0953,-12.1120/ 

134  c  Radial  Lens  Distortion  Coefficients  FKO,  FKI,  FK2,  FK3 

135  data  fk  /I .924312d-04, -2.839673d-06,  1.940416d-08,-4.715753d-11, 

136  .  6.467923d-04,-1.301398d-05,  7.699424d-08,-1 .413951d-10, 

137  .  5.920576d-04,-1.120280d-05,  6-877133d-08,-1.358581d-10, 

138  .  7.242229d-04,-1.395773d-05,  8.152970d-08,-1.488803d-10, 

139  .  3.126069d-04,-7.650029d-06,  5.678321d-08,-1 .212948d-10, 

140  .  7.208347d-04,-1.328443d-05,  7.942249d-08,-1 .541224d-10, 

141  .  2.566426d-05,-8.466813d-07,  1.618407d-08,-5.114144d-11, 

142  .  6.696901d-04,-1.176637d-05,  6. 149184d-08, -1 .050377d-10/ 

143  c  Offsets 

144  data  xo  /  -0.005,  -0.022,  0.027,  0.088,  0.037,  0,088, 

145  .  -0.056,  0.132,  0.013,  0.122,  0.045,  0.036, 

146  .  -0.005,  -0.022,  0.019,  0.140/ 

147  c  Cameras  assigned  to  each  photo  number 

148  data  icm  /I,  2,  3,  4,  5,  6/ 

149  ncont=35 

150  c  27  for  initial  conditions  (ians=0)  &  13  for  head  anthro  <ians=1) 

151  jt=27*ians 

152  ntarg=27 

153  if(ians==1)  ntarg  =  13 

154  units=.001d0 

155  sdx  =  .055d0 

156  sdy  =  .055d0 

157  c 

158  1  write  (*,*)  '  Enter  Photo  #  (1-6,  0  when  finished)  ' 

159  read  (*,*)  ipho 

160  call  CLEAR 

161  if(ipho==0)  go  to  999 

162  c 

163  icam=icm(ipho) 

164  focal=  foc(icam) 
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165  call  NEWPAG 

166  write  (out, 2)  iframCipho) 

167  2  format  (16x, 'Calibrated  Fiducial  Coordinates  of  Frame  ',a8// 

168  .  26x,  'Fid',  9x,  'X',  12x,  'Y') 

169  c 

170  c  Write  Calibrated  Fiducial  Coordinates 

171  c 

172  do  ifid=1,  4 

173  write  (out, 4)  if id,calf id(1, if id, icam),calf id(2, if id, icam) 

174  4  format  (25x, i4,5x,f8.3,5x,f8-3) 

175  enddo 

176  write  (out, 8)  focal,  xo(1, icam), xo(2, icam) 

177  8  format  (//sp, '  Calibrated  Focal  Length  =  ',f9.3,'  mm.  Xoff=  ', 

178  .  f7.3,'  mm.  Yoff=  ',f7.3,'  mm.') 

179  write  (out, 10)  (fk(i,icam),  i=1,4) 

180  10  format  (////31x,sp, 'Lens  Distortion'//31x, 'Radial  Parameters'/I  lx 

181  .  'IC0='dl5.8d2,'  K1='d15-8d2, '  IC2='dl5.8d2/31x'K3='d15.8d2//) 

182  c 

183  c  Read  &  Write  Frame  ID 

184  c 
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185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


write  (img,12)  ifram(ipho),  focal,  sdx,  sdy, if ram(icanH-6) 

12  format  (a8,2x,sp,f 10.3:,ss,2(f10.3),a8,2x) 
call  NEWPAG 

write  (out, 14)  ifram(ipho) 

14  format  (20x, 'Fiducial  Measurements  of  Frame  ',a8//  24x,'ID',12x, 

.  'Measured'/37x, 'X' , 14x, 'Y' ) 

Q  ************************************************************************* 

c  Digitize  edges: 
if id=1 

20  write  (*,*)  'Enter:  ',  ilab(ifid) 
read  (dig)  data 
write  (*,*)  char(7) 
c 

c  DECODE  data  from  CHARACTER  to  INTEGER 

if  (ichar(data(1 :1 ))  <  32)  data(1:16)  =  data(2:17) 
read  (data,  50)  ibutt,ix,iy 
50  format  (il,1x, i6,1x, i6) 
c 

c  Interpret  action  to  take  based  on  which  button  was  pressed: 
if  (ibutt  ==  3)  then  !  good 

xy(1 , if id)=ix*units 
xy(2, if id)=iy*units 
ifid=ifid+1 

el  seif  (ibutt  ==  2)  then  Terror  -  backup 

ifid=ifid-1 

write  (*,*)  'Backing  up  one  to  ',ilab(ifid) 
write  (*,*)  char(7),char(7) 

else 

write  (*,*)  'Not  an  option.  Redo' 
endif 

if  (if id  <=  12)  go  to  20 
c 

c  Find  the  fiducials  from  these  edges 

call  FID(XY)  !  12  in  &  4  out 

nf i d=4 
c 

c  Store  observed  (digitized)  coordinates 
do  ifid=1,4 
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224  do  1=1,2 

225  obscor(i , if id)=xy(i , if id) 

226  calcor(i , if id)=calf id(i,if id, icam) 

227  enddo 

228  write  (out, 64)  if id,xy(1 , if id),xy(2, if id) 

229  64  format  (22x, i4,2f15.3) 

230  enddo 

231  c 

232  c  Compute  the  4- Parameter  Check  Transformation. 

233  c 

234  ich3=0 

235  call  FOURP 

236  write  (*,*)'  4-Parameter  Check  Transformation' 


F77L  -  Lahey  FORTRAN  77,  Version  5.00  19  Mar  92  14:56:42  Page  6 

SUBROUTINE  HEADS  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/N21 
Source  file  Listing 

237  rmsx=0 . 

238  rmsy=0 . 

239  do  i=1,4 

240  x=obscor(1 , i ) 

241  y=obscor(2, i ) 

242  dn=(x*del(4)+y*del(5)+1 .0) 

243  xt=(x*del(1 )+y*del(2)+del(3))/dn-calcor(1 , i ) 

244  yt=(x*del(6)+y*del(7)+del(8))/dn-calcor(2, i ) 

245  write  (  *,64)  i,xt,yt 

246  rmsx=rmsx+xt*xt 

247  rmsy=  rmsy+y t*y t 

248  enddo 

249  rmsx3=dsqrt(rmsx/nf id) 

250  rmsy3=dsqrt(rmsy/nf id) 

251  write  (*,'("  rms=  ",2f7.3/)')rmsx3,  rmsy3 

252  write  (*,*) '8-Parameter  Transformation' 

253  rmsx=0. 

254  rmsy=0 . 

255  c 

256  c  Compute  the  Multi -Parameter  Transformation. 

257  call  EIGHTP 

258  write  (out, 66) 

259  66  format  (//17x, '8-Parameter  Residuals  of  the  Fiducial  Coordinates'/ 

260  .  /  23x,  'Fid',  11x,  'X',  14x,  'Y') 

261  c 

262  c  Compute  Residuals  For  the  Fiducial  Coordinates 

263  c 

264  do  i=1,4 

265  x=obscor(1 , i ) 

266  y=obscor(2, i) 

267  dn=(x*del(4)+y*del(5)+1 .0) 

268  xt=(x*del ( 1 )+y*del (2)+del (3) )/dn-calcor(1 ,  i ) 

269  yt=(x*deL(6)+y*del(7)+del(8))/dn-calcor(2,  i ) 

270  write  (out, 64)  i,xt,yt 

271  write  (  *,64)  i,xt,yt 

272  rmsx=rmsx+xt*xt 

273  rmsy=rmsy+yt*yt 

274  enddo 

275  rmsx=dsqr t ( rmsx/4 ) 

276  rmsy=dsqrt(rmsy/4) 

277  write  (*,'("  rms=  " ,2f7.3/)' )rmsx,  rmsy 

278  write  (out,  68)rmsx,  rmsy,  rmsx3,  rmsy3,  del 

279  68  format(/23x, 'Rms' ,2f15.3/23x, 'Rms(check)' ,f8.3,  f15.3/ 

280  .  /25x, 'Transformation  Parameters  Are:'/13x,2f11.6,f11.4, 

281  .  2f11.6/13x,2f11.6,f11.4) 

282  call  NEUPAG 

283  write  (out,70)ipho 
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284  70  format  (//24x/ Plate  Coordinates  for  Frame  ' , i4//18x, MD' ,11x, 

285  .  'Measured',  13x/Adjusted'/30x,'X',9x/Y',10x/X\9x/Y') 

286  write  (out,*)'  Control:' 

287  pause 

288  c 

289  Q*************************************<f******************************* 


F77L  -  Lahey  FORTRAN  77,  Version  5.00  19  Mar  92  14:56:42  Page  7 

SUBROUTINE  HEADS  Conipiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/1/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
Source  file  Listing 

290  c  Digitize  the  control  points  for  this  photo 

291  icon=1 

292  100  writeC*,*)  'Enter:  icont(icon) 

293  read  (dig)  data 

294  write  (*,*)  char(7) 

295  c 

296  c  DECODE  data  from  CHARACTER  to  INTEGER 

297  if  (ichar(data(1 :1 ))  <  32)  data(1:16)  =  data(2:17) 

298  read  (data,  50)  ibutt,ix,iy 

299  c 

300  c  Interpret  action  to  take  based  on  which  button  was  pressed: 

301  if  (ibutt  ==  4)  then 

302  write  (*,*)  'Abort  requested.  Restart  photo,' 

303  write  (*,*)  char(7),char(7) 

write  (out,*)  'Abort  requested*******************************' 

JQ5  write  (img,*)  'Abort  requested*******************************' 

306  go  to  1 

307  elseif  (ibutt  ==  3)  then 

308  xy(1 , icon)=ix*uni ts 

309  xy(2, icon)=iy*units 

310  icon=icon+1 

311  elseif  (ibutt  ==  2)  then 

312  icon=icon-1 

313  write  (*,*)  'Backing  up  one  to  ' , icont(icon) 

314  write  (*,*)  char(7),char(7) 

315  elseif  (ibutt  ==  1)  then 

316  xy(1 , icon)=-1 . 

317  xy(2, icon)=-1 - 

318  write  (*,*)  '  missing  ',  icont(icon) 

319  write  (*,*) 

320  icon=icon+1 

321  else 

322  write  (*,*)  'Not  an  option.  Redo' 

323  endif 

324  if  (icon  <=  ncont)  go  to  100 

325  c 

326  i con=0 

327  do  k=1, ncont  !  process  control  points 

328  icon=icon+1 

329  110  if  (icon>ncont)  go  to  150 

330  if  (xy(1 , icon)<=0)  then 

331  icon=icon+1 

332  go  to  110 

333  endif 

334  x=xy(1,icon) 

335  y=xy(2,icon) 

336  c  Correct  Measured  Coordinates  for  Film  Shrinkage  &  Offset 

337  dn=(x*del(4)+y*del(5)+1.0) 

338  xt=(x*del(1)+y*del(2)+del(3))/dn-xo(1,icam) 

339  yt=(x*del (6)+y*del (7)+del (8) )/dn-xo(2, i cam) 

340  c  Correct  for  Radial  Lens  Distortion: 

341  rt2=(xt**2+yt**2) 
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342 

rt4=rt2*rt2 

343 

rt6=rt4*rt2 

344 

c1=fk(2, icam)*rt2+fk(3, icam)*rt4+fk(4, icam)*rt6+1 -d0+fk(1 , icam) 

345 

xt=c1*xt 

346 

yt=c1*yt 

347 

c 

348 

write  (out, 112)  icont{icon),x,y,xt,yt 

349 

112 

format  (14x,a8,2x,2f10.3,1x,2f 10.3) 

350 

write  (img,114)  icont(icon),xt,yt, if ram(ipho) 

351 

114 

format  (a8,2x,2f10.4,15x, 'Photo  ',a8) 

352 

enddo 

353 

c 

354 

150 

write  (out,*)'  Targets:' 

355 

pause 

356 

357 

Q************ *********************************************************** **^ 

358 

c  Digitize  the  target  points  for  this  photo 

359 

itar=1 

360 

200 

write(*,*)  'Enter:  ',  itarg(itar+jt) 

361 

read  (dig)  data 

362 

write  (*,*)  char(7) 

363 

c 

364 

c  DECODE  data  from  CHARACTER  to  INTEGER 

365 

if  ( ichar(data(1 ;1))  <  32)  data(1:16)  =  data(2:17) 

366 

read  (data,  50)  ibutt,ix,iy 

367 

c 

368 

c  Interpret  action  to  take  based  on  which  button  was  pressed: 

369 

if  (ibutt  ==  4)  then 

370 

write  (*,*)  'Abort  requested.  Restart  photo.' 

371 

write  (*,*)  char(7),char(7) 

372 

write  (out  *)  'Abort  requested*******************************' 

373 

write  (img  *)  'Abort  p0qy0sted*******************************' 

374 

go  to  1 

375 

elseif  (ibutt  ==  3)  then 

376 

xy(1 , itar)=ix*units 

377 

xy(2, itar)=iy*units 

378 

itar=itar+1 

379 

elseif  (ibutt  ==  2)  then 

380 

itar=itar-1 

381 

write  (*,*)  'Backing  up  one  to  ' , itarg(itar+jt) 

382 

write  (*,*)  char(7),char(7) 

383 

elseif  (ibutt  ==  1)  then 

384 

xy(1,itar)=-1 . 

385 

xy(2,itar)=-1. 

386 

write  (*,*)  '  missing  ',  itarg(itar+jt) 

387 

write  (*,*) 

388 

itar=itar+1 

389 

else 

390 

write  (*,*)  'Not  an  option.  Redo' 

391 

end  if 

392 

if  (itar  <=  ntarg)  go  to  200 

393 

c 

394 

itar=0 
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395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 


do  k=1,ntarg  !  process  target  points 

itar=itar+1 

210  if  (itar>ntarg)  go  to  250 
if  (xy(1 , itar)<=0)  then 
itar=itar+l 
go  to  210 
end  if 

x=xy(1, itar) 
y=xy(2,itar) 

c  Correct  Measured  Coordinates  for  Film  Shrinkage  &  Offset 
dn=(x*del(4)+y*del(5)+1.0) 
xt=(x*del(1)+y*del(2)+deU3))/dn-xo(l,icam) 
yt=(x*del(6)+y*del(7)+del(8))/dn-xo(2,icam) 
c  Correct  for  Radial  Lens  Distortion: 
rt2=(xt**2+yt**2) 
rt4=rt2*rt2 
rt6=rt4*rt2 

cl=fk(2, icam)*rt2+fk(3, icam)*rt4+fk(4, icam)*rt6+l .dO+f k(1 , icam) 
xt=c1*xt 
yt=c1*yt 
c 

write  (out, 112)  itarg(itar+jt),x,y,xt,yt 
write  (img,114)  itarg(itar+jt),xt,yt, ifram(ipho) 
enddo 
c 

250  write  (img,'(A8)')  '*****’*f**' 
c 

go  to  1 
c 

999  write  (out,*)char(12) 

END 
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426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 


SUBROUTINE  BODY 

c  XRay  Digitization  Of  Body  Anthropometry 

implicit  real*8  (a-h,o-z) 

connmon  calcor(2,50) ,obscor<2,50),eqn(8,9),del(8), ich3,  nfid 

common  /titlep/  title,  page,  out,  img,  dig 

character*74  title 

integer  page,  out,  img,  dig 

character  data*17 

character*8  if ram(4), idbod(16),  idpt 

integer  ibutt,  ifid,  ix,  iy,  idfd(IO) 

real*8  xy(2,21),  calf id(2, 10,2) 

logical  if  lag 

data  ifram  /afEyLfSh','RtEyLfSh',  'LfEyRtSh' , 'RtEyRtShV 
data  idbod  /'Origin' , 'Rib_Lf ' , 'Rib_Rt' , 'SpineTop' , 'SpineBot' , 

.  'spine_bb' , 'sternum' ,  ' lf_shold' , ' rt_shold' , 

' I tp' , ' rtp' , ' ctp' , ' IneckT ' , ' IneckB ' , ' rneckT ' , ' rneckB ' / 
data  calfid/'190.190,-147.150,  -77.030,-160.380,  77.220,-158.830, 

192.510,-146.442,-190.060,  5.760,  191.570,  5.990, 

-190.490,  157.980,  -75.380,  146.070,  77.730,  147.920, 

191.520,  158.540,-193.950,-148.160,  -80.380,-162.380, 
75.670,-164.310,  191.214,-148.961,-193.920,  5.010, 

192.310,  4.800,-193.010,  159.210,  -80.050,  147.600, 
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449  .  75.390,  144.880,  192.720,  158.520/ 

450  c 

451  c  Read  order  of  transformation 

452  write  (*,*)  '  Enter  number  of  parameters  for  shrinkage  fit:  ’ 

453  read  (*,*)  iopti 

454  write  (*,*) 

455  if  (iopti >6) iopti =8 

456  ich3s=0 

457  if  (iopt1<=3)  then 

458  ich3s=1 

459  iopti =3 

460  end  if 

461  nbod=16 

462  units=.0254d0 

463  sdx  =  I.OdO 

464  sdy=  I.OdO 

465  c 

466  1  write  (*,*)  '  Enter  0  when  finished' 

467  write  (*,*)  '  Enter  1  if:  Left  Eye  View- --Left  Shoulder  to  Plate' 

468  write  (*,*)  '  Enter  2  if:  Right  Eye  View“--Left  Shoulder  to  Plate' 

469  write  (*,*)  '  Enter  3  if:  Left  Eye  View--Right  Shoulder  to  Plate' 

470  write  (*,*)  '  Enter  4  if:  Right  Eye  View--Right  Shoulder  to  Plate' 

471  write  (*,*) 

472  read  (*,*)  ians 

473  if(ians==0)  go  to  999 

474  c 

475  call  CLEAR 

476  c 

477  focal=  -889. OdO 
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478  call  NEWPAG 

479  write  (out,2400)i frame ians) 

480  c 

481  c  Write  Calibrated  Fiducial  Coordinates 

482  c 

483  jfid=2 

484  do  ifid=1,  10 

485  write  (out, 2420)  if id,calf id(1 , if id, jf id),calf id(2,if id, jf id) 

486  enddo 

487  c 

488  c  Read  &  Write  Frame  ID 

489  c 

490  write  (img,1516)  ifram(ians),  focal,  sdx,  sdy 

491  call  NEWPAG 

492  write  (out, 2380)  ifram(ians) 

494  c  Start  major  Loop  for  digitizing  x-rays: 

495  iflag=,true. 

496  IFID=1 

497  10  read  (dig)  DATA 

498  write  (*,*)  CHAR(7) 

499  c 

500  c  DECODE  data  from  CHARACTER  to  INTEGER 

501  c 

502  if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 

503  read  (DATA,  20)  IBUTT,IX,IY 

504  20  FORMAT  ( 1 1 , IX, 16, IX, 16) 

505  c 

506  c  Interpret  action  to  take  based  on  which  button  was  pressed: 

507  if  (ibutt  ==  3)  then 
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508 

xy(1 , if id)=ix*units 

509 

xy(2, if id)=iy*units 

510 

write  (*,30)  '  FIDUCIAL', if 

511  30 

format  (a, lx, i3,2x,f8.4,2x,' 

512 

if(if lag)then 

513 

isavex=ix 

514 

isavey=iy 

515 

if lag=. false. 

516 

end  if 

517 

if id=if id+1 

518 

el seif  (ibutt  ==  2)  then 

519 

ifid=ifid-1 

520 

write  (*,*)  'Backing  up  one 

521 

write  (*,*)  char(7),char(7) 

522 

el seif  (ibutt  ==  1)  then 

523 

xy(1, ifid)=-1 - 

524 

xy(2,ifid)=>1. 

525 

write  (*,*)  '  MISSING  ^ 

526 

ifid=ifid+1 

527 

else 

528 

write  (*,*)  'Not  an  option. 

529 

end  if 

^ ,  if id 


if  id 


Redo' 
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530 

if  (if id  <=  10)  go  to  10 

531 

c 

532 

if id=0 

533 

do  k=:1,10 

534 

c 

535 

c 

Store  observed  (digitized)  coordinates 

536 

c 

537 

ifid=ifid+1 

538 

80 

if  (ifid>10)  go  to  210 

539 

if  (xy(1 , if id)<=0)  then 

540 

if id=if id+1 

541 

go  to  80 

542 

end  if 

543 

kk=ifid 

544 

do  i=1,2 

545 

obscor(i, if id)=xy(i,ifid) 

546 

calcor(i , if id)=calf id(i ,kk, jf id) 

547 

enddo 

548 

idfd(k)=kk 

549 

write  (out, 64)  kk,xy(1 , if id),xy(2, if id) 

550 

64 

format  (22x, i4,2f15.3) 

551 

enddo 

552 

c 

553 

c  Compute  the  3- Parameter  Check  Transformation. 

554 

c 

555 

210 

nfid=k-1 

556 

ich3=1 

557 

call  FOURP 

558 

write  (*,*)'  3-Parameter  Check  Transformation 

559 

rmsx=0 . 

560 

rmsy=0 . 

561 

do  i=1,nfid 

562 

x=obscor(1,i) 

563 

y=obscor(2,  i ) 

564 

den= ( x*de 1 (4 )+y*de 1 ( 5 )+1 . 0 ) 

565 

xt=(x*del(1 )+y*del(2)+del(3))/den-calcor(1 
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566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 


yt=(x*del(6)+y*del(7)+del(8))/den-calcor(2,i ) 
kk=idfd(i) 

write  (  *,2560)  kk,xt,yt 
rmsx=rmsx+xt*xt 
rmsy=rmsy+yt*yt 
enddo 

rmsx3=dsqrt ( rmsx/nf i d) 
rmsy3=dsqrt ( rmsy/nf i d) 
write  (*,230)rinsx,  rmsy 
230  format  ('  rms=  ',2f7.3) 
write  (*,*) 

write  (*,*)iopt1,' -Parameter  Transformation' 
rmsx=0 . 
rmsy=0  _ 
c 

c  Confute  the  Multi -Parameter  Transformation- 
ich3=ich3s 
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583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 
623 


if  (iopt1<=5)  call  FOURP 
if  (iopt1==5)  call  FIVEP 
if  (iopt1==6)  call  SIXP 
if  (iopt1==8)  call  EIGHTP 
write  (out, 2550)  iopti 
c 

c  Compute  Residuals  For  the  Fiducial  Coordinates 
c 

do  i=1,nfid 
x=obscor(1 , i ) 
y=obscor(2, i ) 

dn=(x*del(4)+y*del(5)+1 -0) 
xt=(x*del(1)+y*del(2)+del<3))/dn-calcor(1,i) 
yt=(x*del(6)+y*del(7)+del(8))/dn-calcor(2, i) 
kk=idfd(i) 

write  (out, 2560)  kk,xt,yt 
write  (  *,2560)  kk,xt,yt 
rmsx=rmsx+xt*xt 
rmsy=rmsy+yt*yt 
enddo 

rmsx=dsqr t ( rmsx/nf i d ) 
rmsy=dsqrt ( rmsy/nf i d) 
write  (*,230)rmsx,  rmsy 

write(out,  2545)rmsx,  rmsy,  rmsx3,  rmsy3,  del 
2545  format(/23x,'Rms',2f15-3/23x,'Rms(check)',f8-3,  f15.3/ 

/25x, 'Transformation  Parameters  Are: '/13x,2f 11 -6,f11 -4, 
2f11-6/13x,2f11.6,f11-4) 

call  NEWPAG 

write  (out,2575)ifram(ians) 
pause 

Q********************************************************************* 

500  ibod=1 

550  read  (dig)  data 

write  (*,*)  CHAR(7) 
c 

c  DECODE  data  from  CHARACTER  to  INTEGER 
c 

if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 
read  (data,  20)  ibutt,ix,iy 
c 

c  Interpret  action  to  take  based  on  which  button  was  pressed: 


13 
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624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 


If  (ibutt  ==  4)  then 

write  (*,*)  'Abort  requested.  Restart  photo,' 
write  (*,*)  char(7),char(7) 

write  (out  *)  'Abort  requ0sted*******************************' 
write  (inig  *)  'Abort  requested*****************’*^*************^ 
go  to  1 

el seif  (ibutt  ==  3)  then 
xy(1 , ibod)=IX*units 
xy(2, ibod)=IY*units 

write  (*,555)idbod(ibod),xy(l,ibod),xy(2,ibod) 

555  format  (a10,2x,f8.4,2x,f8.4) 
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635 

ibod=ibod+l 

636 

elseif  (ibutt  ==  2)  then 

637 

ibod=ibod-1 

638 

write  (*,*)  'Backing  up  one  to  ',  idbod(ibod) 

639 

WRITE  (*,*)  char(7),char(7) 

640 

elseif  (ibutt  ==  1)  then 

641 

xy(1 , ibod)=-1 . 

642 

xy(2, ibod)=-1 , 

643 

write  (*,*)  'MISSING  ',  idbod(ibod) 

644 

ibod=ibod+1 

645 

else 

646 

write  (*,*)  'Not  an  option.  Redo' 

647 

end  if 

648 

if  (ibod  <=  nbod)  go  to  550 

649 

c 

650 

i bod=0 

651 

do  690  k=l,nbod 

652 

c 

653 

c 

Process  measured  body  coordinates 

654 

c 

655 

ibod=ibod+1 

656 

590 

if  (ibod>nbod)  go  to  700 

657 

if  (xy(1,ibod)<=0>  then 

658 

ibod=ibod+1 

659 

go  to  590 

660 

end  if 

661 

kk=ibod 

662 

x=xy(1 , ibod) 

663 

y=xy(2, ibod) 

664 

i dpt =idbod( ibod) 

665 

c 

666 

c 

Correct  Measured  Coordinates  for  Film  Shrinkage 

667 

c 

668 

xt=(x*del ( 1 )+y*del (2)+del (3) )/(x*del (4)+y*del (5)■ 

669 

yt=(x*det(6)+y*deU7)+del(8))/(x*deU4)+y*del<5)■ 

670 

c 

671 

write  (out, 2605)  idpt,x,y,xt,yt 

672 

c 

673 

c 

Write  Records  for  Tri angulation  Input  to  file:  *'img,dat" 

674 

write  (img,1610)  idpt,xt,yt, if ram(ians) 

675 

690 

cont i nue 

676 

c 

677 

700 

icount=0 

678 

710 

write  (*,*)'  Re-do  first  fiducial' 

679 

read  (dig)  data 

680 

write  (*,*)  char(7) 

681 

c 

682 

c 

DECODE  data  from  CHARACTER  to  INTEGER 
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683  c 

684  if  (ichar  (  data(1:1)  )  <  32)  data(1:16)  =  data(2:17) 

685  read  (data,  20)  ibutt,ix,iy 

686  if(iabs(ix-isavex)+iabs(iy“isavey)  >  3*(rmsx+rmsy)/uni ts)then 
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687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 


c 

999 


write  (*,*)'  You  blew  it',  ix,  iy,  '  vs,',  isavex,  isavey 
write  (*,*)  char(7) 
write  (*,*)  char(7) 
i count =icount+1 
if (icount<=4)  go  to  710 

write(*,  *)'No  more  tries. . .origin  lost. ..going  back  to  menu' 
write  (img,'(a8)')  '********' 
go  to  1 
end  if 
pause 

write  (img,'(a8)')  '********/ 
go  to  1 

call  CLEAR 

write  (out,*)char(12) 


1370  format 
1410  format 
1440  format 
1445  format 
1450  format 
1460  format 


1470  format 
1480  format 
1485  format 
1500  format 
1510  format 
1516  format 
1580  format 
1605  format 
1610  format 


(2i1,8x,3f10.3) 

(2x,i4,4x,2f10.4) 

(2d20.10) 

(3d20.10) 

(//42x,sp, 'CALIBRATED  FOCAL  LENGTH  =  ',f9.3,'  mm.') 
(////51x,sp,'LENS  DISTORTION'//51x, 'RADIAL  PARAMETERS'/31x 
'K0='d15.8d2,'  K1='d15.8d2, '  K2='d15.8d2/51x'K3='dl5.8d2 

,//:45x,'LENS  DECENTRATION  PARAMETERS'/31x, ' J1=  'dl5.8d2, 

'  J2=  'dl5.8d2,'  PHI=  'dl5.8d2/) 

(i2) 

(2f10.3) 

(8x, 'Calibrated  Focal  Length  (CFL)  in  millimeters  =  ') 
(44x,2fl3.3) 

(6x,i4,6f10.3) 

(a8,2x,sp,f 10.3: ,ss,2(f 10.3), 1 Ox) 

(2x,a8,6f10.3) 

(34x,a8,2x,2fl0.3,1x,2fl0.3) 

(a8,2x,2f10.4,15x, 'Photo  ',a8) 


c 


2380  format  (20X, 'Fiducial  Measurements  of  Frame  ',a8//  24x,'ID',12x, 

.  'Measured'/37x, 'X' , 14x, ' Y' ) 

2400  format  (16x, 'Calibrated  Fiducial  Coordinates  of  Frame  ',a8// 

26x,  'Fid',  9x,  'X',  12x,  'Y') 

2420  format  (25x, i4,5x,f8.3,5x,f8.3) 

2450  format  (//25x,sp, 'Calibrated  Focal  Length  =  ',f9.3,'  mm.') 

2460  format  (////31x,sp, 'Lens  Distortion'//31x, 'Radial  Parameters'/I  lx 
'K0=:'dl5.8d2,'  Kl='d15.8d2, '  K2='dl5.8d2/31x'K3='dl5.8d2 

.  ,//:25x, 'Lens  Decentration  Parameters'/llx, ' J1=  'd15.8d2, 

'  J2=  'd15.8d2,'  PHI=  'd15.8d2/) 

2500  format  (24x,2fl3.3) 

2550  format  (//i 18, ' -Parameter  Residuals  of  the  Fiducial  Coordinates'// 

23x,  'Fid',  llx,  'X',  14x,  'Y') 


2560  format  (22x, i4,2f 15.3) 

2570  format  (//22x, 'Plate  Coordinates  for  Frame  ',a8//'  ID', llx, 
.  'Measured' , 13x, 'Adjusted' ,13x, 'Max  Spread' , llx, 'Frame'/ 

17x,'X',9x,'Y',10x,'X',9x,'Y',10x,'X',9x,'Y') 
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740  2575  format  (//22x, 'Plate  Coordinates  for  Frame  ',a8//18x,'ID',11x, 

741  .  'Measured' , 13x, 'Adjusted'/30x, 'X' ,9x, 'Y' , lOx, 'X' ,9x, 'Y' ) 

742  2600  format  (x,a8,2x,2f10.3,1x,2f10.3,1x,2f10.3) 

743  2605  format  (14x,a8,2x,2f 10.3, lx, 2f 10.3) 

744  end 
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745  c . 

746  SUBROUTINE  FID(Z) 

747  c  Intersects  the  edge  lines  (formed  by  a  least  squares  on  3  points) 

748  c  to  give  the  corner  fiducials.  Stores  output  back  in  the  input  array. 

749  implicit  reai*8  (a-d,  x-z) 

750  real*8  z(2,12),  x(3),  y(3) 

751  n=3 

752  c  left 

753  x1=0. 

754  y1=0. 

755  y2=0. 

756  xy=0. 

757  do  i=1,  3 

758  x(i)=z(1,9+i)  !  10,  11,  12 

759  y(i)=z(2,9+i) 

760  x1=x1+x(i) 

761  y1=y1+y(i) 

762  y2=y2+y{i)*y(i) 

763  xy=xy+x( i )*y( i ) 

764  enddo 

765  den=n*y2-y1*y1 

766  c=  (  n*xy-y1*x1 )/den 

767  d=-(y1*xy-x1*y2)/den 

768  c  top 

769  x1=0. 

770  y1=0. 

771  x2=0. 

772  xy=0. 

773  do  i=1,  3 

774  x(i)=z(1,i)  !  1,  2,  3 

775  y(i)=z(2,i) 

776  x1=x1+x(i) 

777  y1=y1+y(i) 

778  x2=x2+x(i)*x(i) 

779  xy=xy+x(i)*y(i) 

780  enddo 

781  den=n*x2-x1*x1 

782  a=  (  n*xy-y1*x1 )/den 

783  b=-(x1*xy-y1*x2)/den 

784  c 

785  z(1,3)=(b*c+d)/(1-a*c)  !  upper  left  =  3rd 

786  z(2,3)=(a*d+b)/(1-a*c) 

787  c 

788  cx=c 

789  dx=d 

790  c  right 

791  x1=0. 
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792  y1=0. 

793  y2=0, 

794  xy=0. 

795  do  1=1,  3 

796  x(i)=z(1,3+i)  !  4,  5,  6 
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797  y<i)=z(2,3+i) 

798  x1=xl+x(i) 

799  yl=y1+y(i) 

800  y2=y2+y( i )*y( i ) 

801  xy=xy+x(i)*yO’) 

802  enddo 

803  den=n*y2“ y 1 *y 1 

804  c=  (  n*xy-y1*x1 )/den 

805  d= “ ( y 1 *xy- x 1 *y2  > /den 

806  c 

807  z(1 ,2)=(b*c+d)/(1-a*c) 

808  z(2,2)=(a*d+b)/(1“a*c) 

809  c  bottom 

810  x1=0. 

811  yl=0. 

812  x2=0. 

813  xy=0. 

814  do  i=1,  3 

815  xCi)=z(l,6+i)  !  7,  8,  9 

816  y(i)=z(2,6+i) 

817  x1=x1+x(i) 

818  y1=y1+y<i) 

819  x2=x2+x(i)*x(i) 

820  xy=xy+x( i )*y( i ) 

821  enddo 

822  den=n*x2-x1*xl 

823  a=  (  n*xy-y1*x1)/den 

824  b=-(x1*xy-y1*x2)/den 

825  c 

826  z(1 , 1 )=(b*c+d)/(1-a*c) 

827  z(2,1)={a*d+b)/(1-a*c) 

828  c 

829  z(1 ,4)=(b*cx+dx)/C1’a*cx) 

830  z(2,4)=(a*dx+b  )/(1-a*cx) 

831  end 
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832  c . -- 

833  SUBROUTINE  FOURP 

834  c 

835  c  Calculate  the  3  or  4  Parameter  Transformation  Between  an  Exact  Set 

836  c  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

837  c 

838  implicit  real*8  (a'h,0'Z) 

839  intrinsic  dsqrt 

840  dimension  am(2,4),  cm(2) 

841  common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 


!  upper  right  =  2nd 


!  lower  right  =  1st 

!  lower  left  =  4th 
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842  c 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870  c 

871  c 

872  c 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 
883 


do  1=1,4 
do  j=1,5 

eqn(i, j)=0.0d0 
enddo 
enddo 

am(1,3)=1.0d0 
am(1 ,4)=0.0d0 
am(2,3)=0.0d0 
am(2,4)=1 -OdO 
do  i=1,nfid 

afn(1,1)=obscor(1,i) 

am(1,2)=obscor(2,i) 

am(2,1)=afn(1,2) 

am(2,2)=-ain(1 ,1) 

cm(1)=calcor(1,i) 

cm(2)=calcor(2,i) 

do  j=1,4 

do  k=1,2 

eqn( j , 5 )=eqn( j , 5 )+am( k, j )*cm( k) 
do  1=1,4 

eqn( j, l)=eqn( j, l)+am(k, j)*am(k, 1) 

enddo 

enddo 

enddo 

enddo 

call  LINSOL(4) 
if  (ich3==0)  go  to  1060 

If  ich3<>0  Transform  the  4-param  to  a  3-param 

scate=eqn(l ,5)**2+eqn(2,5)**2 

scale=dsqrtUcale) 

eqn(1 ,5)=eqn(1 ,5)/scale 

eqn(2,5)=eqn(2,5)/scale 

sum1=0.0d0 

sum2=0.0d0 

do  i=1,nfid 

x=obscor(1 , 1 ) 
y=obscor(2,  i) 

sum1=sum1+calcor(l, i )-eqn(1 ,5)*X’eqn(2,5)*y 
sum2=sum2+calcor(2, i )+eqn(2,5)*x-eqn<1 ,5)*y 


F77L  -  Lahey  FORTRAN  77,  Version  5.00  19  Mar  92  14:56:42  Page  20 

SUBROUTINE  FOURP  Compiling  Options: 

/N0/N2/N3/N7/NA/A1/NA2/NB/NC/C1/ND/NE/NF/H/I/NK/NL/P/NQ1/R/S/NT/NV/W/NX/NZ1 
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884  enddo 

885  eqn(3,5)=sum1/nf id 

886  eqn(4 , 5 )=sum2/nf i d 

887  c 

888  c  Form  Transformation  parameters  vector 

889  c 

890  1060  del(l)=eqn(1,5) 

891  del(2)=eqn(2,5) 

892  del(3)=eqn(3,5) 

893  del(4)=0.0d0 

894  deU5)=0.0d0 

895  del(6)=-del(2) 

896  del(7)=del(l) 

897  del(8)=eqn(4,5) 

898  end 
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899  c 

900 

901  c 

902  c 

903  c 

904  c 

905 

906 

907 

908 

909  c 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950  c 

951  c 


SUBROUTINE  FIVEP 

Calculate  the  FIVE  Parameter  Transformation  Between  an  Exact  Set 
of  Data  and  a  Corresponding  Set  of  Measured  Data. 

implicit  real*8  (a-h,o-z) 
intrinsic  dsin,  dcos,  dabs 
dimension  b(2,5),c(2),cv(5),par(5) 

common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 

par(1 )=dsqrt(del(1 )**2+del(2)**2) 
par(2)=par(1) 

par(3)=datan2(del(2),del(1)) 
par(4)=del(3) 
par(5)=del(8) 
b(1,2)=0.0d0 
b(1,5)=0.0d0 
b(2J)=0.0d0 
b(2,4)=0.0d0 
do  30  ii=1,10 
do  i=1,  5 
cv(i)=0.0d0 
do  j=1,  5 

eqn(i,  j)=0.0d0 
enddo 
enddo 

do  i=1,nfid 
b(1,4)=par(1) 
b(2,5)=par(2) 
sint=dsin(par(3)) 
cost=dcos(par(3)) 
x=obscor(1 , i ) 
y=obscor(2, i ) 
c1=-x*sint+y*cost 
c2=  x*cost+y*sint 
b(1 ,1)=c2*par(1 ) 
b(1,3)=c1*par(1)**2 
b(2,2)=c1*par(2) 
b(2,3)=-c2*par(2)**2 

c(1 )=par{1 )*(calcor(1 , i)"par<1)*c2-par(4)) 
c(2)=par(2)*(calcor(2, i)-par(2)*c1-par(5)) 
do  j=1,5 
do  k=1,2 

cv( j )=cv( j )+b( k, j )*c( k) 
do  1=1,5 

eqn(i, l)=eqn( j, l)+b(k, j)*b(k, 1) 
enddo 
enddo 
enddo 
enddo 

Solve  normal  equations 


Page  21 
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952 

c 

953 

call  LINS0L(5} 

954 

do  j=1,  5 

955 

par(j)=par( j)+eqn(j,  6) 

956 

enddo 

957 

c 

958 

c 

Test  for  convergence 

959 

c 

960 

do  20  j=1,  5 

961 

c1=ciabs(eqn(  J,  6)) 

962 

epsln=1 .Od-6 

963 

if ( j>3)epsln=1 -Od-4 

964 

if (c1>epsln)go  to  30 

965 

20 

continue 

966 

go  to  40 

967 

30 

cont i nue 

968 

call  CLEAR 

969 

write  (*,*)  char(7) 

970 

write  (*,*)'  Error  in  FIVEP' 

971 

stop 

972 

c 

973 

c 

Form  transformation  parameters  vector 

974 

c 

975 

40 

sint=dsin(par(3)) 

976 

cost=dcos(par(3)) 

977 

del(l)=par(1)*cost 

978 

del(2)=par(1 )*sint 

979 

del(3)=par(4) 

980 

del(4)=0.0d0 

981 

del(5>=0.0d0 

982 

del(6)=-par(2)*sint 

983 

del(7)=par(2)*cost 

984 

deU8)=par(5) 

985 

end 
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986  c . 

987  SUBROUTINE  SIXP 

988  c 

989  c  Calculate  the  SIX  Parameter  Transformation  Between  an  Exact  Set 

990  c  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

991  c 

992  implicit  real*8  (a-h,o-2) 

993  dimension  ans(2,3),  ccc(3,3),  ddd(3,2),  rrr(2,2),  err(2) 

994  common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 

995  c 

996  c  Zero  Normal  Equation  Area. 

997  c 

998  do  i=1,2 

999  do  j=1,3 

1000  ccc(i, j)=0.0d0 

1001  ddd(j,i)=0.0d0 

1 002  enddo 

1 003  enddo 
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1004  c 

1005  c 

1006  c 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020  c 

1021  c 

1022  c 

1023 

1024 

1025  c 

1026  c 

1027  c 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036  c 

1037  c 

1038  c 


Compute  Normal  Equations 

do  i=1,nfid 
do  j=1,2 

ccc( j ,3)=ccc<  j ,3)+calcor( j , i ) 
ddd<3, j )=ddd(3, j )+obscor( j , i ) 
do  k=1,2 

ccc( j,k)=ccc( j,k)+calcor( j, i)*calcor(k, i ) 
ddd( j,k)=ddd( j,k)+calcor( j, 1 )*obscor(k, i ) 
enddo 
enddo 
enddo 

ccc(3,l)=ccc(1,3) 
ccc(3,2)=ccc(2,3) 
ccc(3,3)=nf id 

Compute  Inverse  of  Normal  Matrix- 


iggy=3 

call  INVERT  (CCC, IGGY,DET) 

Compute  the  Transformation  Parameters 

do  i=1,2 
do  j=1,3 

ans(i, j)=0.0d0 
do  k=l,3 

ans( i , j )=ans( i , j )+ccc( j ,k)*ddd(k, i ) 
enddo 
enddo 
enddo 

Calculate  the  Transformation  from  Measured  Data  to  Exact  Data. 
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1039  do  1=1,2 

1040  do  j=1,2 

1041  rrr(i, j)=ans(i, j) 

1 042  enddo 

1 043  enddo 

1 044  i ggy=2 

1045  call  INVERT  (RRR, IGGY,DET) 

1046  do  i=1,2 

1047  do  j=1,2 

1048  ans( 1 , j )=rrr( i , j ) 

1 049  enddo 

1050  enddo 

1051  do  i=1,2 

1052  err( i )=-ans( i , 1 )*ans(1 ,3)’ans( i ,2)*ans(2,3) 

1 053  enddo 

1054  do  i=1,2 

1055  ans(i,3)=err(i) 

1056  enddo 

1057  c 

1058  c  Form  transformation  parameters  vector 

1059  c 

1060  del(1)=ans(1,1) 

1061  del(2)=ans<1,2) 
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1062 

del(3)=ans(1,3) 

1063 

del(4)=0.0d0 

1064 

del<5)=0.0d0 

1065 

del(6)=ans(2,1) 

1066 

del(7)=ans(2,2) 

1067 

del(8)=ans(2,3) 

1068 

end 
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1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 
1119 


SUBROUTINE  EIGHTP 
c 

c  Calculate  the  EIGHT  Parameter  Transformation  Between  an  Exact  Set 
c  of  Data  and  a  Corresponding  Set  of  Measured  Data. 

c 

implicit  real*8  (a-h,o-z) 

common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 
real*8  tem(8) 
c 

c  Zero  the  matrix  of  linear  equations  EQN 
c 

do  i=1,8 

del(i)=0.0d0 
do  j=1,9 

eqn(i, j)=0.0d0 
enddo 
enddo 
c 

c  Compute  approximate  values  for  the  transformation  parameters 
c 

do  i=1,nfid 

call  ACCAPR  (calcorCI , i ),calcor(2, i ),obscor(1 , i ),obscor(2, i )) 
enddo 
n=8 

call  INVERT  (eqn,  n,  d) 
do  i=1,  8 
do  j=1,  8 

del(i)=del(i)+eqn(i,  j)*eqn(j,  9) 
enddo 
enddo 
c 

c  Compute  the  transformation  parameters  by  least  squares 
c 

do  50  m=1,5 
c 

c  Zero  the  normal  equations 
c 

do  i=1,8 

tem(i )=0.0d0 
do  j=1,9 

eqn(i, j)=0,0d0 
enddo 
enddo 
c 

c  Form  the  normal  equations 
c 

do  i=1,nfid 

call  ACCNEQ(calcor(1,i),calcor(2,i),obscor(1,i),obscor(2,i)) 
enddo 


25 


166 


Anthropometry  and  Initial  Conditions  Photogrammetric  Program 


1120  c  Solve  the  normal  equations 

1121  c 
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1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 


call  INVERTCeqn,  n,  d) 
do  1=1,  8 
do  j=1,  8 

tem( i )=tem( i )+eqn( i ,  j)*eqn(j,  9) 
enddo 
enddo 
c 

c  Correct  the  approximate  values  of  the  transformation  parameters 
c 

do  i=1,  8 

del ( i )=del ( i )+tem( i ) 
enddo 
c 

c  Test  the  solution  for  convergence 
c 

do  i=1,8 

d=dabs(del(i )/(del(i)-tem(i ))-1 .0) 
if  (d>.001d0)  go  to  50 
enddo 
return 

50  continue 
end 
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1144 

c - 

1145 

SUBROUTINE  LINSOL (NPAR) 

1146 

c 

1147 

c  Solution  of  (NPAR)  linear  equations 

1148 

c 

1149 

implicit  real*8  (a-h,o-z) 

1150 

common  calcor(2,50),obscor(2,50),( 

1151 

c 

1152 

do  1040  k=1,npar 

1153 

m=npar+1 

1154 

do  j=k,npar+1 

1155 

eqn(k,m)=eqn(k,m)/eqn(k 

1156 

m=m-1 

1157 

enddo 

1158 

do  1030  i=1,npar 

1159 

if  <i==k)  go  to  1030 

1160 

m=npar+1 

1161 

do  l=k,npar+1 

1162 

eqn(i,m)=eqn(i,m)-( 

1163 

m=m-1 

1164 

enddo 

1165 

1030 

cont i nue 

1166 

1040 

cont i nue 

1167 

c 

1168 

end 
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1169  c . - . 

1170  SUBROUTINE  ACCAPR  (XG,YG,XP,YP) 

1171  c 

1172  c  Evaluate  the  contribution  of  one  point  to  the  8  by  9  matrix  of 

1173  c  normal  equations  for  computation  of  approximate  values  of  the 

1174  c  eight-parameter  film  shrinkage  transformation. 

1175  c 

1176  c  XG:  Calibrated  X  Fiducial  coordinate 

1177  c  YG:  Calibrated  Y  Fiducial  coordinate 

1178  c  XP;  Observed  X  Fiducial  coordinate 

1179  c  YP:  Observed  Y  Fiducial  coordinate 

1180  c  EQN:  8X8  Coefficient  matrix  of  the  Normal  Equation 

1181  c  with  the  vector  of  constants  in  column  9. 

1182  c 

1183  implicit  real*8  (a-h,o-z) 

1184  dimension  am(2,8),  bm(2) 

1185  common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 

1186  c 

1187  am(1,1)=xp 

1188  am(1,2)=yp 

1189  am(1,3)=1.0d0 

1190  am(l,4)=-xg*xp 

1191  am(1,5)=-xg*yp 

1192  am(1,6>=0.0d0 

1193  am(1,7)=0.0d0 

1194  am(1,8)=0.0d0 

1195  am(2,1)=0.0d0 

1196  am(2,2)=0.0d0 

1197  am(2,3)=0.0d0 

1198  am(2,4)=-xp*yg 

1199  am(2,5)=-yp*yg 

1200  am(2,6)=xp 

1201  am(2,7)=yp 

1202  am(2,8)=1.0d0 

1203  bm(1)=xg 

1204  bm(2)=yg 

1205  do  1=1,8 

1206  do  j=l,8 

1207  do  k=1,2 

1 208  eqn( i , j )=eqn( i , ] )+am( k , i )*am( k, j ) 

1209  enddo 

1210  enddo 

1211  enddo 

1212  do  i=1,8 

1213  do  j=l,2 

1214  eqnC i , 9)=eqn( i ,9)+am( j , i )*bm( j ) 

1215  enddo 

1216  enddo 

1217  end 
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1218  c 

1219 

1220  c 


SUBROUTINE  ACCNEQ  (XG, YG,XP, YP) 
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1221  c 

1222  c 

1223  c 

1224  c 

1225  c 

1226  c 

1227  c 

1228  c 

1229  c 

1230  c 

1231  c 

1232  c 

1233  c 

1234  c 

1235 

1236 

1237 

1238  c 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261  c 

1262  c 

1263  c 

1264 

1265 

1266 

1267 

1268 
1269 


Evaluate  the  contribution  of  one  point  to  the  normal  equation 
required  for  Subroutine  EIGHT.  The  normal  equations  are 
required  to  compute  corrections  to  the  last  estimate  of  the 
eight  transformation  parameters.  This  is  called  once  for  each 
point. 

XG:  Calibrated  X  Fiducial  coordinate 

YG:  Calibrated  Y  Fiducial  coordinate 

XP:  Observed  X  Fiducial  coordinate 

YP:  Observed  Y  Fiducial  coordinate 

EQN:  8X8  Coefficient  matrix  of  the  Normal  Equation 
with  the  vector  of  constants  in  column  9. 


implicit  real*8  (a-h,o-z) 

dimension  am(2,2),  bm(2,8),  cm(2),  amm(2,2) 

common  calcor(2,50),obscor(2,50),eqn(8,9),del(8), ich3,  nfid 

am( 1 , 1 ) =de 1(1)- xg*de 1(4) 

am(1 ,2)=del(2)”xg*del(5) 

am(2,1)=del(6)-yg*del(4) 

am(2,2)=del(7)-yg*del(5) 

bm<1,1)=xp 

bm(1,2)=yp 

bm{1,3)=1.0d0 

bm(1 ,4)=-xp*xg 

bm(1,5)=-yp*xg 

bm(1,6)=0.0d0 

bm(1,7)=0.0d0 

bm(1,8)=0.0d0 

bm(2,1)=0.0d0 

bm(2,2)=0.0d0 

bm(2,3)=0.0d0 

bm(2,4)=-xp*yg 

bm(2,5)=-yp*yg 

bm(2,6)=:xp 

bm(2,7)=yp 

bm(2,8)=1.0d0 

cm( 1 ) =xp*am( 1 , 1 )+yp*am< 1 , 2  >+de I ( 3 ) - xg 
cm(2)=xp*am(2, 1 )+yp*am(2,2)+del(8)-yg 

Form  modified  covariance  matrix  AMM 

do  i=1,2 
do  j=1,2 

annm(i,  j)=0-0d0 
do  k=1,2 

amm( i , j )=amm( i , j )+am( i , k)*am( j , k) 
enddo 
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1270  enddo 

1271  enddo 

1272  d=amm(1 ,1)*amm(2,2)-amm(1 ,2)*amm(2,1 ) 

1273  am(1,1)=  amm(2,2)/d 

1274  am(2,2)=  amm(1,1)/d 

1275  am(1,2)=-amm(2,1)/d 

1276  am(2,1)=  amm(1,2) 

1277  c 

1278  c  Form  normal  equations 
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1279  c 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 


do  1=1,8 
do  j=l,8 
do  lc=1,2 
do  1=1,2 

eqn( i , j )=eqn( i , j )+bm(k, i )*am(k, I )*bmC I , j ) 
enddo 
enddo 
enddo 
enddo 
do  1=1,8 
do  k=1,2 
do  1=1,2 

eqn(i  ,9)=eqn(i  ,9)*bm(k,i)*am(k,  L)*cni(l) 
enddo 
enddo 
enddo 
end 
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1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 


c . 

SUBROUTINE  INVERT  (A,N,D) 
c 

c  Find  the  Inverse  of  a  Matrix  by  the  Gaussian  Elimination  Method, 
c  A:  Array  in  which  the  matrix  to  be  inverted  is  located, 
c  The  routine  will  search  for  the  largest  non- singular  matrix  in 
c  the  array  A  and  invert  it  &  return  it  in  the  same  locations  of  A. 
c  N:  The  first  dimension  of  A-  It  must  be  a  variable  in  the  call  list, 
c  The  rank  of  largest  matrix  contained  in  A  will  be  returned  in  N. 
c  D:  The  determinant  of  the  largest  non- singular  matrix  in  A. 
c  L  &  M:  Vectors  of  dimension  N  used  temporarily, 
c 
c 

implicit  real*8  (a-h,o-z) 
dimension  a(64),  1(8),  m(8) 
c 

c  Initiate  the  continued  product  of  pivots  becoming  the  determinant, 
c 

d=1.0d0 

c 

c  Initiate  the  counter  which  contains  the  rank  of  the  matrix, 
c 

ksave=0 

c 

c  Start  the  main  elimination  loop, 
c 

do  1090  k=1,n 
c 

c  Search  for  the  largest  element 
c 

l(k)=k 
m(k)=k 
kk=k+n*(k-1) 
biga=a(kk) 
do  1010  i=k,n 

do  1010  j=k,n 
i j=i+n*( j-1) 

if  (dabs(biga)>=dabs(a(i j)))  go  to  1010 
biga=a<i j) 

Uk)=i 
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1337  m(k)=j 

1338  1010  continue 

1339  c 

1340  c  Largest  element  of  zero  means  the  largest  matrix  in  A  is  less  than  N. 

1341  c 

1342  if  (biga==0)  GO  TO  1100 

1343  c 

1344  c  Interchange  rows 

1345  c 

1346  j=l(k) 

1347  ksave=k 

1348  if  (l(k)<=k)  go  to  1030 
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1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 


do  i=1,n 

ki=k+n*(i-1) 
ji=j+n*(i-1) 
tem=-a(ki ) 
a(ki)=a( ji) 
a( ji)=tem 

enddo 

c 

c  Interchange  columns, 
c 

1030  i=m(k) 

if  (m(k)<=k)  go  to  1050 
do  j=1,n 

jk=j+n*(k-1) 
ji=j+n*(i-1) 
tem=“a( jk) 
a( jk)=a( ji) 
a(ji)=tem 

enddo 

c 

c  Divide  column  by  minus  pivot 
c 

1050  do  1060  i=1,n 

if  (i==k)  go  to  1060 

ik=i+n*(k-1) 

a(ik)=a(ik)/(-a(kk)) 

1060  continue 

c 

c  Reduce  matrix 
c 

do  1070  i=1,n 

do  1070  j=1,n 

if  (i==k.or. j==k)  go  to  1070 

i j=i+n*( j-1) 

ik=i+n*(k-1) 

kj=k+n*(j'1) 

a( i j )=a( i k)*a(kj )+a( i j ) 

1070  continue 

c 

c  Divide  row  by  pivot 
c 

do  1080  j=1,n 

if  (j==k)  go  to  1080 
kj=k+n*( j-1 ) 
a<kj)=a(kj)/a(kk) 

1080  continue 
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1395  c 

1396  c  Continued  product  of  pivots 

1397  c 

1398  d=d*a(kk) 

1399  a(kk)=1-0d0/a<kk) 

1400  1090  continue 
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1401  c 

1402  c  Final  row  and  column  interchange 

1403  c 

1404  1100  k=ksave+1 

1405  1110  k=k-1 

1406  if  (k<=0)  go  to  1150 

1407  c 

1408  c  Restore  columns. 

1409  c 

1410  i=l(k) 

1411  if  (i<=k)  go  to  1130 

1412  do  j=1,n 

1413  jk=j+n*(k-1) 

1414  j‘i=j+n*(i-1) 

1415  tem=a(jk) 

1416  a(jk)=-a(ji) 

1417  a(ji)=tem 

1418  enddo 

1419  c 

1420  c  Restore  rows. 

1421  c 

1422  1130  j=m(k) 

1423  if  (j<=k)  go  to  1110 

1424  do  i=1,n 

1425  ki=k+n*(i-1) 

1426  ji=j+n*(i-1) 

1427  teffl=a(ki) 

1428  a(ki)=-a(ji) 

1429  a(ji)=tem 

1430  enddo 

1431  go  to  1110 

1432  c 

1433  c  Set  the  rank  of  the  matrix  and  return  to  the  calling  routine. 

1434  c 

1435  1150  return 

1436  end 
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1437 

c--. 

1438 

SUBROUTINE  NEWPAG 

1439 

c 

1440 

common  /titlep/  title, 

page,  out,  img 

1441 

character*74  title 

1442 

integer  page,  out,  img. 

,  dig 

1443 

c 

1444 

page=page+1 
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1A45  if (page>1)wri te(out,*)  char(12) 

U46  write  (out, 10)  page, title 

1447  10  formate'  Naval  BioDynamics  Laboratory  PREP',31x,'  Page',i3 

1448  .  /a74/) 

1449  end 
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1450  c . . . . 

1451  SUBROUTINE  CLEAR 

1452  c  clears  the  screen  and  moves  the  cursor  to  row  8. 

1453  write  (*,*)  char(27)//' t2J' 

1454  write  (*,*)  char(27)//' [1;1H' 

1455  write  (*,*)  char(27)//' [8B' 

1456  end 
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Main  Program 
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1  PROGRAM  NBDL_GIANT 

2  C 

3  C  GENERAL  INTEGRATED  ANALYTICAL  TRIANGULATION  (GIANT) 

4  C 

5  common  /titlep/  jtitle,  ipage 

6  character  jtitle*76 

7  i nc I ude  ' i nc\tapes . i nc ' 

II  1  INTEGER  CAMERA, FRAMES, OBJECT 

II  2  COMMON  /TAPES/  IN, 10, lOS, lOIC,  IPl,  IP2, 

11  3  .  CAMERA, IMAGES, FRAMES, OBJECT, 

II  4  .  ITAPE1,ITAPE2,ITAPE3,ITAPE4, 

n  5  .  ITAPE5,ITAPE6,ITAPE7,ITAPE0 

II  6 

8  common  /offset/off (2) 

9  common  /anthr/ians,  p(15,  3) 

10  real*8  p 

11  C 

12  character  irun*6,  fn*12 

13  call  system('cls' ) 

14  IN=11 

15  10=12 

16  I0S=13 

17  IP1=14 

18  IP2=15 

19  CAMERA=IN 

20  IMAGES=16 

21  FRAMES=IN 

22  OBJECT=IN 

23  ITAPE1=17 

24  ITAPE2=18 

25  ITAPE3=19 

26  ITAPE4=20 

27  ITAPE5=21 

28  ITAPE6=22 

29  ITAPE7=23 

30  ITAPE0=24 

31  IOIC=25 

32  C 

33  writeC*,*)'  Enter  0  for  initial  conditions' 

34  write(*,*)'  Enter  1  for  head  anthropometry' 

35  write(*,*)'  Enter  2  for  body  anthropometry' 

36  writeC*,*)'  Enter  3  for  standard  giant  ' 

37  read(*,*)ians 

38  if  (ians==0)  then 

39  open  (in,  status='old' ,  f i le=' optcams.dat ' ) 

40  elseif  (ians==1)  then 

41  open  (in,  status='old',  f i le=' opthead.dat') 

42  elseif  (ians==2)  then 

43  open  (in,  status='old' ,  f i le='optxray.dat' ) 
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44 

45 

46 

47 

48  1 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92  C 

93 


else 

open  (in,  status='old' ,  f i le='opt.dat' ) 
end  if 

if(ians==0)then 

grite(*,*)'  Enter  RUN  number  (A6):  ' 

read  (*,*)  irun 
do  i=l,6 

if(irun(i :i)=='  ')go  to  1 
enddo 

write  (*,*) 

jtitle='  35nin  Still  Camera  System  for  Initial  Conditions  of 
RUN  #  =  V/irun 

open  (images,  status='old' ,  f i le=irun//' im.dat' ) 
open  (unit=io,  status='unknown\f i le=  irun//' -132' ) 
open  (unit=io,  status=' unknown', file='nul') 
open  ( un i t = i os , s t a t us= ' unknown ' , f i I e= i run// ' . out ' ) 
open  ( un i t= i o i c , s t a tus= ' unknown ' , f i I e= i run// ' - i c ' ) 
elseif (ians<3)then 

write  (*,*)  '  Enter  HRV  number:  ' 
read  (*,*)  ihrv 
write  (*,*) 
if (ians==l)then 

write  (fn,"( i4-4, 'himg.dat' )") ihrv 

jtitle='  35rnm  Still  Camera  System  for  Head  Anthropometry  of 
HRV  #  =  '//fn(1:4) 

open  ( uni t=i os, status=' unknown' ,fi le=fn(1 :4)//' head. out' ) 

open  ( images,status='old' ,f i le  =fn) 

read  (images,  *)  off 

if  (dabs(of f (1 )+off (2)“10)>2)  then 

write(*,*)  'Offset  sum  <  8  or  >  12.  check  it  out.' 
stop 
end  if 
else 

write  (fn,'*(i4.4, 'bimg-dat')")ihrv 

jtitle='  X-Ray  Determination  of  Body  Anthropometry  of 

HRV  #  =  '//fn(1:4) 

open  ( uni t=ios,status=' unknown' ,fi le=fn(1 :4)// 'body. out ' ) 
open  ( images, status=' old' ,fi le  =fn) 
end  if 

open  (unit=io,  status=' unknown' ,fi le=fn(l :5)//' .132' ) 
else 

write(*,*)'  Enter  title  (A76)  ' 

write(*,*) 

read(*,'(A)')jtitle 

open  (images,status='old' ,f i le  ^'img.dat') 
open  (unit=io,  status='unknown' ,fi le=' giant -132' ) 
open  ( uni t=ios,status=' unknown' ,fi le=' giant. out ' ) 
end  if 

DO  1010  I=ITAPE1,ITAPE6 
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94  1010  OPEN  (UNIT=I,STATUS='SCRATCH',FORM='UNFORMATTED') 

95  C 

96  C  Initialize  job  title,  page  count,  and  data  set  identifications 
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97  C 

98  I  Page=0 

99  CALL  CLR 

100  wn’teC*,*)  char(7) 

101  C 

102  C  Perform  data  input  and  structuring  phase,  then  close  input  files. 

103  C 

104  CALL  CLR 

105  CALL  PHASE1 

106  CLOSE  (IN) 

107  CLOSE  (IMAGES) 

108  C 

109  C  Perform  triangulation  phase 

110  C 

1 1 1  OPEN  (UN I T= I TAPEO , STATUS= ' UNKNOWN ' ) 

112  OPEN  (UN I T= I TAPE7, STATUS= ' SCRATCH ' , FORM= ' UN  FORMATTED ' ) 

113  C 

114  CALL  CLR 

115  WRITE  (*,'(37X,' 'PHASE  2")') 

116  CALL  PHASE2 

117  C 

118  C  Perform  data  output  phase 

119  C 

120  CLOSE  (ITAPEO) 

121  CLOSE  (ITAPE1) 

122  CALL  CLR 

123  WRITE  (*,'(37X," PHASE  3")') 

124  CALL  PHASE3 

125  write(*,*)  char(7) 

126  CALL  CLR 

127  write(*,*)  char(7) 

128  if (ians==0)then 

129  WRITE  (*,"(/////, 26X, 'Results  are  in  ' ,a6, ' .out.' )")irun 

130  WRITE  (*,"(/////, 16X, ' Initial  Conditions  Results  are  in  ',a6, 

131  .  ' -ic-')*')irun 

132  elseif(ians==1 )then 

133  WRITE  (*,"(/////, 26X, 'Results  are  in  ',a4, 'head. out. ')")fn(1:4) 

134  elseif (ians==2)then 

135  WRITE  (*,*'(/////, 26X, 'Results  are  in  '  ,a4, 'body.out. '  )*')fn(1 :4) 

136  else 

137  WRITE  (*,"(/////, 26X, 'Results  are  in  giant. out. ' )") 

138  endif 

139  END 


Subroutines 
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4426  c***** 

4427  SUBROUTINE  STUFFP(ID2,  OBJECT) 

4428  C  Search  object  point  ids  to  find  matching  ids  in  anthropometry  list 

4429  C 

4430  REAL*8  P,  OBJECT(3) 

4431  C  CHARACTER*4  ID(15) 

4432  COMMON  /TAPES/  IN, 10, lOS, IDUM(15) 

4433  COMMON  /ANTHR/IANTH,  P(15,  3) 

4434  DIMENSION  ID(15) 

4435  DATA  ID/' r1 - 1 ' , ' r2- 1 ' , ' r3- 1 ' , ' r4- 1 ' , 

4436  .  'r1-r','r2-r','r3-r','r4-r',  '  Ion','  ron', 

4437  .  ' igin' , 'b_Lf ' ,  'b_Rt' , 'eTop' ,  'eBot'  /  !  15 

4438  DO  1=1,  15 
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4439 

IF  CID2.EQ.IDCI))THEN 

4440 

C 

4441 

C 

Stuff  object  points  into  corresponding  locations  in  array  P 

4442 

C 

4443 

DO  J=1,  3 

4444 

PCI,  J)=OBJECTCJ) 

4445 

enddo 

4446 

RETURN 

4447 

ENDIF 

4448 

enddo 

4449 

END 
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4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 


SUBROUTINE  ANTHRO 

C  Verify  that  we  have  the  18/13  needed  anthro  points, 

C  call  the  routine  to  find  the  transformations  &  print  results 
C 

REAL*8  P,  X(3),  AB(3,  3) 

COMMON  /TAPE  S/  I N , 1 0 , 1 OS , I DUM ( 1 5 ) 

COMMON  /ANTHR/IANTH,  P(15,  3) 

CHARACTER*4  TYPE(2)/'HEAD' ,  'BODY'/ 

C 

CALL  NEWPAG 

WRITECIO,  '(44XA40//)')'A  NTHROPOMETRY  OUTPUT' 

WRITE(IOS,'(20XA40//)')'A  NTHROPOMETRY  OUTPUT' 

11=1 
12=10 

IF(IANTH.EQ.2)THEN 

11=11 

12=15 

ENDIF 

DO  10  1=11,  12 
IF(P(I,3).EQ-0.)THEN 

WRITECIO,  *)'  Can"t  find  10  head  or  5  body  points--halting' 
WRITECIOS,*)'  Can"t  find  10  head  or  5  body  points- -halting' 
RETURN 
ENDIF 

10  CONTINUE 

Q  ************************************************ 

CALL  NBDL  (X,  AB) 

WRITECIO,  8)  TYPECIANTH),  X,  TYPECIANTH),  AB 
WRITECIOS,  9)TYPECIANTH),  X,  TYPECIANTH),  AB 

8  FORMATC38X'T-PLATE  ORIGIN  WITH  RESPECT  TO  ',A4, 

.  '  ANATOMICAL  ORIGIN' 

.  //41X'X=  '2PF8.4,'cm  Y=  'F8.4,'cm  Z=  'F8.4,'cm'0P/// 

,  35X'T-PLATE  ORIENTATION  WITH  RESPECT  TO  ',A4, 

,  '  ANATOMICAL  SYSTEM'  //3C47X,3F11 .6/)) 

9  F0RMATC14X'T-PLATE  ORIGIN  WITH  RESPECT  TO  ',A4, 

.  '  ANATOMICAL  ORIGIN' 

.  //17X'X=  '2PF8.4,'cm  Y=  'F8.4,'cm  Z=  'F8.4, 'cm'OP/// 

.  IIX'T-PLATE  ORIENTATION  WITH  RESPECT  TO  ',A4, 

.  '  ANATOMICAL  SYSTEM'  //3C23X,3F1 1 .6/) ) 

END 
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4491  c***** 

4492  SUBROUTINE  UVEC  (A,IC) 

4493  C  Make  a  unit  vector:  A(K,-)  =  A(K,-)  /  MAGNITUDE  <A(K,  -)) 

4494  C 

4495  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

4496  DIMENSION  A(3,  3) 

4497  C 

4498  B=0 

4499  DO  10  1=1,  3 

4500  10  B=B+A(IC,  I)**2 

4501  B=DSQRT(B) 

4502  DO  20  1=1,  3 

4503  20  A(K,  I)=A(IC,  I)/B 

4504  END 
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4505  c***** 

4506  SUBROUTINE  NBDL  (X,  AB) 

4507  C  Find  the  origin  &  transformation  matrix  of  the  T-plate  relative  to  the 

4508  C  head  (body)  anatomical  origin  in  the  head  (body)  anatomical  coord  system 

4509  C 

4510  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

4511  COMMON  /ANTHR/IANTH,  P(15,  3) 

4512  DIMENSION  X(3),  AB(3,  3),  A(3,  3),  B(3,  3),  Q(3) 

4513  C 

4514  C=0.D0 

4515  D=0.D0 

4516  IFdANTH.EQ.DTHEN 

4517  call  extrapolate  !  1-4-->4  &  5-8-->8 

4518  DO  10  1=1,  3 

4519  C  Find  origin  of  Head  Anatomical  Coordinate  System 

4520  X(I)=(P(4,I)+P(8,I))/2 

4521  C  Find  x-axis 

4522  A(1,I)=(P(9,I)+P(10,I))/2-X(I) 

4523  C  Find  origin  of  T-plate 

4524  Q(I)=0 

4525  C  Find  x-axis  of  T-plate 

4526  B(1,I)=0 

4527  if(i==l)B(l,I)=l 

4528  C  Find  approx,  y-axes 

4529  A(2,I)=P(4,I)-X(I) 

4530  B(2,I)=0 

4531  if(i==2)B(2,I)=1 

4532  C  Interchange  Itp  and  rtp  when  processing  a-plate  (180  rot  re  z) 

4533  C  B(2,I)=P(12,I)-P(11,I)  Irhesus  right-left  xxxxx 

4534  C  Find  vector  from  head  anat  to  T-plate 

4535  10  Q(I)=Q(I)’X(I) 

4536  ELSE 

4537  DO  11  1=1,  3 

4538  C  Find  origin  of  Body  Anatomical  Coordinate  System 

4539  X(I)=P(11,I) 

4540  C  Find  x-axis 

4541  A(1,I)=X(I)-(P(14,I)+P(15,I))/2 

4542  C  Find  origin  of  T-plate 

4543  Q(I)=0 


178 


Anthropometry  and  Initial  Conditions  Photogrammetiic  Program 


4544 

C 

Find  x-axis  of  T-plate 

4545 

B(1,I)=0 

4546 

if(i==1)B(1,I)=1 

4547 

C 

Find  approx,  y-axes 

4548 

A(2,I)=P(12,I)-P(13,I) 

4549 

B(2,I)=0 

4550 

if{i==2)B(2.I)=1 

4551 

C 

Find  vector  from  body  anat  to  T 

4552 

11 

0(I)=Q(I)-X(I) 

4553 

END  IF 
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4554 

C  Make  unit  vectors  of  x-axes 

4555 

CALL  UVEC(A,  1) 

4556 

CALL  UVEC(B,  1) 

4557 

C  Find  components  of  the  approx  y-axes  along  the  respective  x-axes 

4558 

DO  20  1=1,  3 

4559 

C=C+A(1,I)*A(2,I) 

4560 

20  D=D+B(1,I)*B(2,I) 

4561 

C  Subtract  these  to  yield  y-axes  perpendicular  to  the 

resp  x-axes 

4562 

DO  30  1=1,  3 

4563 

A(2,n=A(2,I)-C*A(1,I) 

4564 

30  B(2,I)=B(2,I)-D*B(1,I) 

4565 

C  Make  them  of  unit  length 

4566 

CALL  UVEC(A,  2) 

4567 

CALL  UVEC(B,  2) 

4568 

C  Find  the  z-axes  by  taking  the  cross  products  of  the 

x-axes  &  y-axes 

4569 

DO  40  1=1,  3 

4570 

J=I+1 

4571 

IF(J.GT.3)J=J-3 

4572 

K=I+2 

4573 

IF(K.GT.3)K=K-3 

4574 

A<3,I)=A(1,J)*A(2,K)-A(1,K)*A(2,J) 

4575 

40  B(3,I)=BC1,J)*B(2,K)-B(1,K)*B(2,J) 

4576 

C  Find  the  components  of  the  transformation  vector  and  matrix  in 

4577 

C  the  head  (body)  anatomical  coordinate  system 

4578 

DO  50  1=1,  3 

4579 

X(I)=0.D0 

4580 

DO  50  J=1,  3 

4581 

X(I)=X(1)+Q(J)*A(I,J) 

4582 

AB(J,I)=0.D0 

4583 

DO  50  K=1,  3 

4584 

50  AB<J,I)=AB(J,I)+B(I,I()*A(J,K) 

4585 

END 
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4586  c 

4587 

SUBROUTINE  EXTRAPOLATE 

4588 

common  /offset/off (2) 

4589 

COMMON  /ANTHR/IANTH,  P(15,  3) 

4590 

real*8  p,  x(4),y(4),2<4),t(4) 

4591 

n=4 

4592 

do  k=1,  2 

4593 

t1=0.d0 
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4594 

t2=0.d0 

4595 

x1=0.d0 

4596 

xt=0-d0 

4597 

y1=0.d0 

4598 

yt=:0.d0 

4599 

z1=0.d0 

4600 

zt=0.d0 

4601 

do  i=1,n 

4602 

j=i+4*(k-1) 

4603 

t(i)=(i-1)*25.4d0 

4604 

tl=t1+t(i) 

4605 

t2=t2+t(i)*t(i) 

4606 

x(i)=p(J,1) 

4607 

x1=x1+x(i) 

4608 

xt=xt+t<i)*x(i) 

4609 

y<i)=p(j,2) 

4610 

y1=y1+y(i) 

4611 

yt=yt+t(i)*y<n 

4612 

z(i)=p(j,3) 

4613 

z1=z1+z(i) 

4614 

zt=zt+t(i)*z(i) 

4615 

enddo 

4616 

den=n*t2-t1*t1 

4617 

ax=  (  n*xt-x1*t1)/den 

4618 

bx=-(t1*xt-x1*t2)/den 

4619 

ay=  (  n*yt-y1*t1)/den 

4620 

by=-(tl*yt-y1*t2)/den 

4621 

az=  (  n*zt'Zl*t1)/den 

4622 

bz=-(t1*zt-z1*t2)/den 

4623 

p(4*k, 1 )=ax*of f (k)*25 .4d0+bx 

4624 

p(4*k,2)=ay*off(k)*25.4d0+by 

4625 

p(4*k,3)=az*off(k)*25.4d0+bz 

4626 

4627 

enddo 

4628 

end 

0,  2,  3  in  inches 
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4629  C***** 

4630  SUBROUT I NE  GET I CV( ID2 , OBJECT , GPCOV) 

4631  C 

4632  C  Search  object  point  ids  to  find  matching  ids  of  targets  on  the  head, 

4633  C  mouth  and  neck.  Desired  variables  are  saved. 


4634  C 

4635 

4636 

4637  C 

4638 

4639 

4640  C 

4641 

4642  C 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 


REAL*8  OB JECT ( 3 ) , GPCOV (3 , 3 ) , VARH , VARM , VARN , VAR2 

CHARACTER*4  VAR 


COMMON  /TAPES/  IN, 10, lOS, lOIC, IDUM(14) 

COMMON  /CONS/  NH,NM,NN, VARH(24, 13),VARM(24, 13) ,VARN(24, 13) 

DIMENSION  IDH(24),IDM(24),IDN(24) 

DATA  IDH  /'hrcl ' , 'hrc2' , 'hrc3' , 'hrc4' , 

'hrc5' , 'hrc6' , 'hrc7' , 'hrc8' , 

'heel ' , 'hee2' , 'hee3' , 'hcc4' , 

-  'hce5' , 'hce6' , 'hec7' , 'hec8' , 

'hlc1','hle2','hle3','hle4', 
'hle5','hle6','hlc7','hle8'/ 

DATA  IDM  /'mrcl ' , 'mrc2' , 'mrc3' , 'mrc4' , 

'mre5', 'mrc6', 'mrc7' , 'mrc8' , 

'mcci', 'mee2','mee3','mee4'. 
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4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661  C 

4662 

4663  C 

4664 

4665  C 

4666  C 

4667  C 

4668 

4669  C 

4670  C 

4671 

4672  C 

4673 

4674 

4675 

4676 

4677 


.  'mcc5' , 'mcc6' , 'mcc7' , 'mcc8' , 

'mid ' , 'mlc2' , 'mlc3' , 'mlc4' , 
.  'mlc5' , 'mlc6' , 'mlc7' , 'mlc8'/ 

DATA  IDN  /'nrc1','nrc2','nrc3','nrc4', 
.  'nrc5' , 'nrc6' , 'nrc7' , 'nrc8' , 

.  'ncci ' , 'ncc2' , 'ncc3' , 'ncc4' , 

'ncc5' , 'ncc6' , 'ncc7' , 'ncc8' , 
'nlcl ' , 'nLc2' , 'nlc3' , 'nlc4' , 
'nlc5' , 'nlc6' , 'nlc7' , 'nlc8'/ 

EQUIVALENCE  (VAR,VAR2) 

DO  40  1=1,24 

SAVE  MOUTH  DATA 

IF(ID2.EQ.IDM(I))  THEN 

ENCODE  CHARACTER  DATA 
WRITE(VAR,50)  ID2 

NM=NM+1 

VARM(I,1)=VAR2 

VARM(I,2)=OBJECT(1) 

VARM(I,3)=OBJECT(2) 

VARM(I,4)=OBJECT(3) 
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4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 


K=4 

DO  10  J=1,3 
DO  10  J1=1,3 
IC=K+1 

10  VARM(I,K)=GPCOV(J,J1) 

C 

C  SAVE  HEAD  DATA 
C 

ELSE  IF(ID2.EQ.IDH(I))  THEN 
WRITE(VAR,50)  ID2 
NH=NH+1 

VARH(I,1)=VAR2 

VARH(I,2)=OBJECT(1) 

VARH(I,3)=OBJECT(2) 

VARH(I,4)=OBJECT(3) 

K=4 

DO  20  J=1,3 
DO  20  J1=1,3 
K=K+1 

20  VARH(I,K)=GPC0V(J,J1) 

C 

C  SAVE  NECK  DATA 
C 

ELSE  IF(ID2.EQ.1DN(I))  THEN 
WRITE(VAR,50)  ID2 
NN=NN+1 

VARN(I,1)=VAR2 

VARN<I,2)=OBJECT(1) 

VARN(I,3)=OBJECT(2) 

VARN(I,4)=OBJECT(3) 

K=4 

DO  30  J=1,3 
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4710 

DO  30  J1=1,3 

4711 

K=K+1 

4712 

30 

VARN(I,tC)=GPCOV(J,J1) 

4713 

END  IF 

4714 

C 

4715 

40 

CONTINUE 

4716 

C 

4717 

50 

FORMAT (A4) 

4718 

RETURN 

4719 

END 
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4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 


SUBROUTINE  ICONS 
C 

C  Write  Initial  Conditions  data  to  a  file. 

C 

REAL*8  VARH,VARM,VARN 
C 

COMMON  /TAPES/  IN, 10, lOS, lOIC, IDUM(14) 

COMMON  /CONS/  NH,NM,NN,VARH(24,13),VARM(24,13),VARN(24,13) 
C 

CHARACTER*4  TYPE(3)/'MOUT' ,  'HEAD',  'NECK'/ 

C 

C  WRITE  MOUTH  DATA 
C 

IF(NM.EQ-O)  GO  TO  20 
WRITE(IOIC,100)  TYPE(I) 

DO  10  1=1,24 

IF(VARM(I,1)  -EQ.  0)  GO  TO  10 
WRITE(IOIC,100)  VARM<I,1) 

J1=2 

J2=4 

DO  5  11=1,4 

WRITE(IOIC,200)  (VARM(I,J),J=J1,J2) 

J1=J2+1 
J2=J2+3 
5  CONTINUE 
10  CONTINUE 

WRITE(IOIC,300) 

C 

C  WRITE  HEAD  DATA 
C 

20  IF(NH.EQ.O)  GO  TO  40 
WRITE(IOIC,100)  TYPE(2) 

DO  30  1=1,24 

IF(VARH(I,1)  .EQ.  0)  GO  TO  30 
WRITE(IOIC,100)  VARH(I,1) 

J1=2 

J2=4 

DO  25  11=1,4 

WRITE(IOIC,200)  (VARH(I,J),J=J1,J2) 

J1=J2+1 
J2=J2+3 
25  CONTINUE 
30  CONTINUE 

WRITE(IOIC,300) 

C 

C  WRITE  NECK  DATA 
C 
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4769 

WRITE(IOIC,100)  TYPE(3) 

4770 

DO  50  1=1,24 

4771 

IF(VARN(I,1)  .EQ.  0)  GO  TO  50 

4772 

URITE(IOIC,100)  VARN(I,1) 

4773 

J1=2 

4774 

J2=4 

4775 

DO  45  11=1,4 

4776 

WRITE(IOIC,200)  (VARN(I,J),J=J1,J2) 

4777 

J1=J2+1 

4778 

J2=J2+3 

4779 

45 

CONTINUE 

4780 

50 

CONTINUE 

4781 

60 

WRITE(IOIC,300) 

4782 

WRITE(IOIC,300) 

4783 

C 

4784 

C 

RESET  VARIABLE  COUNTERS 

4785 

C 

4786 

NH=0 

4787 

NM=0 

4788 

NN=0 

4789 

C 

4790 

100 

FORMAT (A4) 

4791 

200 

FORMAT(3(D11.4,1X)) 

4792 

300 

FORMAT('EOFEOF') 

4793 

C 

4794 

END 
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